LP#1427287: MARC tag-table service

This patch teaches the Evergreen database how to store
information about MARC fields, subfields, and values that
can be associated with subfields.  The initial application
of the tag-table service is supplying the webstaff MARC editor
with data for context menus for selecting valid tag, indicator
value, subfield code, and subfield values.

A record attribute's coded value map can be associated with a
MARC subfield and returned by the tag-table service.  This is for
supporting the use of controlled vocabularies for subfield values in
the MARC editor.

Database schema
---------------
Tables:

* config.marc_format:   list of MARC formats; at present, however,
                        only MARC21 is supported
* config.marc_field:    list of fields recognized by the Evergreen
                        database.
* config.marc_subfield: list of subfields recognized by Evergreen

Views:

* config.marc_field_for_ou
* config.marc_subfield_for_ou

These two views assist in the process of determining the set of
MARC fields and subfields are meant to be in force at a particular
OU.  These are generally not meant to be queried directly, in
favor of the config.ou_marc_{sub}fields() functions.

Functions:

* config.ou_marc_fields(marc_format, marc_record_type, ou)
* config.ou_marc_subfields(marc_format, marc_record_type, ou)

These functions return the authoritative set of fields or
subfields in force at a given OU.

OpenSRF methods
---------------
This patch adds methods to open-ils.cat for
retrieving either the entire tag table or just the list
of MARC fields, either from the stock MARC format
seed definition or as potentially customized for the user's
workstation OU:

open-ils.cat.tag_table.all.retrieve.stock
open-ils.cat.tag_table.all.retrieve.local
open-ils.cat.tag_table.field_list.retrieve.stock
open-ils.cat.tag_table.field_list.retrieve.local

To use these methods, the user must have UPDATE_MARC permission.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
index f4b9f11..3193219 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Cat.pm
@@ -1381,6 +1381,137 @@ sub fixed_field_values_by_rec_type {
     return $result;
 }
 
+__PACKAGE__->register_method(
+    method    => "retrieve_tag_table",
+    api_name  => "open-ils.cat.tag_table.all.retrieve.local",
+    stream    => 1,
+    argc      => 3,
+    signature => {
+        desc   => "Retrieve set of MARC tags, subfields, and indicator values for the user's OU",
+        params => [
+            {desc => 'Authtoken', type => 'string'},
+            {desc => 'MARC Format', type => 'string'},
+            {desc => 'MARC Record Type', type => 'string'},
+        ]
+    },
+    return => {desc => 'Structure representing the tag table available to that user', type => 'object' }
+);
+__PACKAGE__->register_method(
+    method    => "retrieve_tag_table",
+    api_name  => "open-ils.cat.tag_table.all.retrieve.stock",
+    stream    => 1,
+    argc      => 3,
+    signature => {
+        desc   => 'Retrieve set of MARC tags, subfields, and indicator values for stock MARC standard',
+        params => [
+            {desc => 'Authtoken', type => 'string'},
+            {desc => 'MARC Format', type => 'string'},
+            {desc => 'MARC Record Type', type => 'string'},
+        ]
+    },
+    return => {desc => 'Structure representing the stock tag table', type => 'object' }
+);
+__PACKAGE__->register_method(
+    method    => "retrieve_tag_table",
+    api_name  => "open-ils.cat.tag_table.field_list.retrieve.local",
+    stream    => 1,
+    argc      => 3,
+    signature => {
+        desc   => "Retrieve set of MARC tags for available to the user's OU",
+        params => [
+            {desc => 'Authtoken', type => 'string'},
+            {desc => 'MARC Format', type => 'string'},
+            {desc => 'MARC Record Type', type => 'string'},
+        ]
+    },
+    return => {desc => 'Structure representing the tags available to that user', type => 'object' }
+);
+__PACKAGE__->register_method(
+    method    => "retrieve_tag_table",
+    api_name  => "open-ils.cat.tag_table.field_list.retrieve.stock",
+    stream    => 1,
+    argc      => 3,
+    signature => {
+        desc   => 'Retrieve set of MARC tags for stock MARC standard',
+        params => [
+            {desc => 'Authtoken', type => 'string'},
+            {desc => 'MARC Format', type => 'string'},
+            {desc => 'MARC Record Type', type => 'string'},
+        ]
+    },
+    return => {desc => 'Structure representing the stock MARC tags', type => 'object' }
+);
+
+sub retrieve_tag_table {
+    my( $self, $conn, $auth, $marc_format, $marc_record_type ) = @_;
+    my $e = new_editor( authtoken=>$auth, xact=>1 );
+    return $e->die_event unless $e->checkauth;
+    return $e->die_event unless $e->allowed('UPDATE_MARC', $e->requestor->ws_ou);
+
+    my $field_list_only = ($self->api_name =~ /\.field_list\./) ? 1 : 0;
+    my $context_ou;
+    if ($self->api_name =~ /\.local$/) {
+        $context_ou = $e->requestor->ws_ou;
+    }
+
+    my %sf_by_tag;
+    unless ($field_list_only) {
+        my $subfields = $e->json_query(
+            { from => [ 'config.ou_marc_subfields', 1, $marc_record_type, $context_ou ] }
+        );
+        foreach my $sf (@$subfields) {
+            my $sf_data = {
+                code        => $sf->{code},
+                description => $sf->{description},
+                mandatory   => $sf->{mandatory},
+                repeatable   => $sf->{repeatable},
+            };
+            if ($sf->{value_ctype}) {
+                $sf_data->{value_list} = $e->json_query({
+                    select => { ccvm => [
+                                            'code',
+                                            { column => 'value', alias => 'description' }
+                                        ]
+                              },
+                    from   => 'ccvm',
+                    where  => { ctype => $sf->{value_ctype} },
+                    order_by => { ccvm => { code => {} } },
+                });
+            }
+            push @{ $sf_by_tag{$sf->{tag}} }, $sf_data;
+        }
+    }
+
+    my $fields = $e->json_query(
+        { from => [ 'config.ou_marc_fields', 1, $marc_record_type, $context_ou ] }
+    );
+
+    foreach my $field (@$fields) {
+        next if $field->{hidden} eq 't';
+        unless ($field_list_only) {
+            my $tag = $field->{tag};
+            if ($tag ge '010') {
+                for my $pos (1..2) {
+                    my $ind_ccvm_key = "${marc_format}_${marc_record_type}_${tag}_ind_${pos}";
+                    my $indvals = $e->json_query({
+                        select => { ccvm => [
+                                                'code',
+                                                { column => 'value', alias => 'description' }
+                                            ]
+                                  },
+                        from   => 'ccvm',
+                        where  => { ctype => $ind_ccvm_key }
+                    });
+                    next unless defined($indvals);
+                    $field->{"ind$pos"} = $indvals;
+                }
+                $field->{subfields} = exists($sf_by_tag{$tag}) ? $sf_by_tag{$tag} : [];
+            }
+        }
+        $conn->respond($field);
+    }
+}
+
 1;
 
 # vi:et:ts=4:sw=4

diff --git a/Open-ILS/src/sql/Pg/002.schema.config.sql b/Open-ILS/src/sql/Pg/002.schema.config.sql
index ec42825..a11069e 100644 (file)
--- a/Open-ILS/src/sql/Pg/002.schema.config.sql
+++ b/Open-ILS/src/sql/Pg/002.schema.config.sql
@@ -1082,4 +1082,108 @@ CREATE TABLE config.z3950_index_field_map (
     )
 );
 
+CREATE TABLE config.marc_format (
+    id                  SERIAL PRIMARY KEY,
+    code                TEXT NOT NULL,
+    name                TEXT NOT NULL
+);
+COMMENT ON TABLE config.marc_format IS $$
+List of MARC formats supported by this Evergreen
+database. This exists primarily as a hook for future
+support of UNIMARC, though whether that will ever
+happen remains to be seen.
+$$;
+
+CREATE TYPE config.marc_record_type AS ENUM ('biblio', 'authority', 'serial');
+
+CREATE TABLE config.marc_field (
+    id                  SERIAL PRIMARY KEY,
+    marc_format         INTEGER NOT NULL
+                        REFERENCES config.marc_format (id) DEFERRABLE INITIALLY DEFERRED,
+    marc_record_type    config.marc_record_type NOT NULL,
+    tag                 CHAR(3) NOT NULL,
+    name                TEXT,
+    description         TEXT,
+    fixed_field         BOOLEAN,
+    repeatable          BOOLEAN,
+    mandatory           BOOLEAN,
+    hidden              BOOLEAN,
+    owner               INTEGER -- REFERENCES actor.org_unit (id)
+                        -- if the owner is null, the data about the field is
+                        -- assumed to come from the controlling MARC standard
+);
+
+COMMENT ON TABLE config.marc_field IS $$
+This table stores a list of MARC fields recognized by the Evergreen
+instance.  Note that we're not aiming for completely generic ISO2709
+support: we're assuming things like three characters for a tag,
+one-character subfield labels, two indicators per variable data field,
+and the like, all of which are technically specializations of ISO2709.
+
+Of particular significance is the owner column; if it's set to a null
+value, the field definition is assumed to come from a national
+standards body; if it's set to a non-null value, the field definition
+is an OU-level addition to or override of the standard.
+$$;
+
+CREATE INDEX config_marc_field_tag_idx ON config.marc_field (tag);
+CREATE INDEX config_marc_field_owner_idx ON config.marc_field (owner);
+
+CREATE UNIQUE INDEX config_standard_marc_tags_are_unique
+    ON config.marc_field(marc_format, marc_record_type, tag)
+    WHERE owner IS NULL;
+ALTER TABLE config.marc_field
+    ADD CONSTRAINT config_standard_marc_tags_are_fully_specified
+    CHECK ((owner IS NOT NULL) OR
+           (
+                owner IS NULL AND
+                repeatable IS NOT NULL AND
+                mandatory IS NOT NULL AND
+                hidden IS NOT NULL
+           )
+          );
+
+CREATE TABLE config.marc_subfield (
+    id                  SERIAL PRIMARY KEY,
+    marc_format         INTEGER NOT NULL
+                        REFERENCES config.marc_format (id) DEFERRABLE INITIALLY DEFERRED,
+    marc_record_type    config.marc_record_type NOT NULL,
+    tag                 CHAR(3) NOT NULL,
+    code                CHAR(1) NOT NULL,
+    description         TEXT,
+    repeatable          BOOLEAN,
+    mandatory           BOOLEAN,
+    hidden              BOOLEAN,
+    value_ctype         TEXT
+                        REFERENCES config.record_attr_definition (name)
+                            DEFERRABLE INITIALLY DEFERRED,
+    owner               INTEGER -- REFERENCES actor.org_unit (id)
+                        -- if the owner is null, the data about the subfield is
+                        -- assumed to come from the controlling MARC standard
+);
+
+COMMENT ON TABLE config.marc_subfield IS $$
+This table stores the list of subfields recognized by this Evergreen
+instance.  As with config.marc_field, of particular significance is the
+owner column; if it's set to a null value, the subfield definition is
+assumed to come from a national standards body; if it's set to a non-null
+value, the subfield definition is an OU-level addition to or override
+of the standard.
+$$;
+
+CREATE INDEX config_marc_subfield_tag_code_idx ON config.marc_subfield (tag, code);
+CREATE UNIQUE INDEX config_standard_marc_subfields_are_unique
+    ON config.marc_subfield(marc_format, marc_record_type, tag, code)
+    WHERE owner IS NULL;
+ALTER TABLE config.marc_subfield
+    ADD CONSTRAINT config_standard_marc_subfields_are_fully_specified
+    CHECK ((owner IS NOT NULL) OR
+           (
+                owner IS NULL AND
+                repeatable IS NOT NULL AND
+                mandatory IS NOT NULL AND
+                hidden IS NOT NULL
+           )
+          );
+
 COMMIT;

diff --git a/Open-ILS/src/sql/Pg/500.view.cross-schema.sql b/Open-ILS/src/sql/Pg/500.view.cross-schema.sql
index f49defc..2dd3592 100644 (file)
--- a/Open-ILS/src/sql/Pg/500.view.cross-schema.sql
+++ b/Open-ILS/src/sql/Pg/500.view.cross-schema.sql
@@ -61,5 +61,120 @@ CREATE TABLE config.idl_field_doc (
 CREATE UNIQUE INDEX idl_field_doc_identity ON config.idl_field_doc (fm_class,field,owner);
 
 
-COMMIT;
+CREATE OR REPLACE VIEW config.marc_field_for_ou AS
+WITH RECURSIVE ou_marc_fields(id, marc_format, marc_record_type, tag,
+                              name, description, fixed_field, repeatable,
+                              mandatory, hidden, owner, depth) AS (
+    -- start with all MARC fields defined by the controlling national standard
+    SELECT id, marc_format, marc_record_type, tag, name, description, fixed_field, repeatable, mandatory, hidden, owner, 0
+    FROM config.marc_field
+    WHERE owner IS NULL
+    UNION
+    -- as well as any purely local ones that have been added
+    SELECT id, marc_format, marc_record_type, tag, name, description, fixed_field, repeatable, mandatory, hidden, owner, 0
+    FROM config.marc_field
+    WHERE ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag] NOT IN (
+        SELECT ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag]
+        FROM config.marc_field
+        WHERE owner IS NULL
+    )
+  UNION
+    -- and start walking down the org unit hierarchy,
+    -- letting entries for child OUs override field names,
+    -- descriptions, repeatability, and the like.  Letting
+    -- fixed-fieldness be overridable is something that falls
+    -- from the implementation, but is unlikely to be useful
+    SELECT c.id, marc_format, marc_record_type, tag,
+           COALESCE(c.name, p.name),
+           COALESCE(c.description, p.description),
+           COALESCE(c.fixed_field, p.fixed_field),
+           COALESCE(c.repeatable, p.repeatable),
+           COALESCE(c.mandatory, p.mandatory),
+           COALESCE(c.hidden, p.hidden),
+           c.owner,
+           depth + 1
+    FROM config.marc_field c
+    JOIN ou_marc_fields p USING (marc_format, marc_record_type, tag)
+    JOIN actor.org_unit aou ON (c.owner = aou.id)
+    WHERE (aou.parent_ou = p.owner OR (aou.parent_ou IS NULL AND p.owner IS NULL))
+)
+SELECT id, marc_format, marc_record_type, tag,
+       name, description, fixed_field, repeatable,
+       mandatory, hidden, owner, depth
+FROM ou_marc_fields;
+
+CREATE OR REPLACE VIEW config.marc_subfield_for_ou AS
+WITH RECURSIVE ou_marc_subfields(id, marc_format, marc_record_type, tag, code,
+                              description, repeatable,
+                              mandatory, hidden, value_ctype, owner, depth) AS (
+    -- start with all MARC subfields defined by the controlling national standard
+    SELECT id, marc_format, marc_record_type, tag, code, description, repeatable, mandatory,
+           hidden, value_ctype, owner, 0
+    FROM config.marc_subfield
+    WHERE owner IS NULL
+    UNION
+    -- as well as any purely local ones that have been added
+    SELECT id, marc_format, marc_record_type, tag, code, description, repeatable, mandatory,
+           hidden, value_ctype, owner, 0
+    FROM config.marc_subfield
+    WHERE ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag, code] NOT IN (
+        SELECT ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag, code]
+        FROM config.marc_subfield
+        WHERE owner IS NULL
+    )
+  UNION
+    -- and start walking down the org unit hierarchy,
+    -- letting entries for child OUs override subfield
+    -- descriptions, repeatability, and the like.
+    SELECT c.id, marc_format, marc_record_type, tag, code,
+           COALESCE(c.description, p.description),
+           COALESCE(c.repeatable, p.repeatable),
+           COALESCE(c.mandatory, p.mandatory),
+           COALESCE(c.hidden, p.hidden),
+           COALESCE(c.value_ctype, p.value_ctype),
+           c.owner,
+           depth + 1
+    FROM config.marc_subfield c
+    JOIN ou_marc_subfields p USING (marc_format, marc_record_type, tag, code)
+    JOIN actor.org_unit aou ON (c.owner = aou.id)
+    WHERE (aou.parent_ou = p.owner OR (aou.parent_ou IS NULL AND p.owner IS NULL))
+)
+SELECT id, marc_format, marc_record_type, tag, code,
+       description, repeatable,
+       mandatory, hidden, value_ctype, owner, depth
+FROM ou_marc_subfields;
+
+CREATE OR REPLACE FUNCTION config.ou_marc_fields(marc_format INTEGER, marc_record_type config.marc_record_type, ou INTEGER) RETURNS SETOF config.marc_field AS $func$
+    SELECT id, marc_format, marc_record_type, tag, name, description, fixed_field, repeatable, mandatory, hidden, owner
+    FROM (
+        SELECT id, marc_format, marc_record_type, tag, name, description,
+              fixed_field, repeatable, mandatory, hidden, owner, depth,
+              MAX(depth) OVER (PARTITION BY marc_format, marc_record_type, tag) AS winner
+        FROM config.marc_field_for_ou
+        WHERE (owner IS NULL
+               OR owner IN (SELECT id FROM actor.org_unit_ancestors($3)))
+        AND   marc_format = $1
+        AND   marc_record_type = $2
+    ) AS s
+    WHERE depth = winner
+    AND not hidden;
+$func$ LANGUAGE SQL;
 
+CREATE OR REPLACE FUNCTION config.ou_marc_subfields(marc_format INTEGER, marc_record_type config.marc_record_type, ou INTEGER) RETURNS SETOF config.marc_subfield AS $func$
+    SELECT id, marc_format, marc_record_type, tag, code, description, repeatable, mandatory,
+           hidden, value_ctype, owner
+    FROM (
+        SELECT id, marc_format, marc_record_type, tag, code, description,
+              repeatable, mandatory, hidden, value_ctype, owner, depth,
+              MAX(depth) OVER (PARTITION BY marc_format, marc_record_type, tag, code) AS winner
+        FROM config.marc_subfield_for_ou
+        WHERE (owner IS NULL
+               OR owner IN (SELECT id FROM actor.org_unit_ancestors($3)))
+        AND   marc_format = $1
+        AND   marc_record_type = $2
+    ) AS s
+    WHERE depth = winner
+    AND not hidden;
+$func$ LANGUAGE SQL;
+
+COMMIT;

diff --git a/Open-ILS/src/sql/Pg/800.fkeys.sql b/Open-ILS/src/sql/Pg/800.fkeys.sql
index 009b915..da04275 100644 (file)
--- a/Open-ILS/src/sql/Pg/800.fkeys.sql
+++ b/Open-ILS/src/sql/Pg/800.fkeys.sql
@@ -163,4 +163,7 @@ ALTER TABLE config.filter_dialog_filter_set
 ALTER TABLE asset.copy ADD CONSTRAINT asset_copy_floating_fkey FOREIGN KEY (floating) REFERENCES config.floating_group (id) DEFERRABLE INITIALLY DEFERRED;
 ALTER TABLE asset.copy_template ADD CONSTRAINT asset_copy_template_floating_fkey FOREIGN KEY (floating) REFERENCES config.floating_group (id) DEFERRABLE INITIALLY DEFERRED;
 
+ALTER TABLE config.marc_field ADD CONSTRAINT config_marc_field_owner_fkey FOREIGN KEY (owner) REFERENCES actor.org_unit(id) DEFERRABLE INITIALLY DEFERRED;
+ALTER TABLE config.marc_subfield ADD CONSTRAINT config_marc_subfield_owner_fkey FOREIGN KEY (owner) REFERENCES actor.org_unit(id) DEFERRABLE INITIALLY DEFERRED;
+
 COMMIT;

diff --git a/Open-ILS/src/sql/Pg/upgrade/lp1427287_1of3.schema.marc-tag-tables.sql b/Open-ILS/src/sql/Pg/upgrade/lp1427287_1of3.schema.marc-tag-tables.sql
new file mode 100644 (file)
index 0000000..1c32824
--- /dev/null
+++ b/Open-ILS/src/sql/Pg/upgrade/lp1427287_1of3.schema.marc-tag-tables.sql
@@ -0,0 +1,223 @@
+BEGIN;
+
+CREATE TABLE config.marc_format (
+    id                  SERIAL PRIMARY KEY,
+    code                TEXT NOT NULL,
+    name                TEXT NOT NULL
+);
+COMMENT ON TABLE config.marc_format IS $$
+List of MARC formats supported by this Evergreen
+database. This exists primarily as a hook for future
+support of UNIMARC, though whether that will ever
+happen remains to be seen.
+$$;
+
+CREATE TYPE config.marc_record_type AS ENUM ('biblio', 'authority', 'serial');
+
+CREATE TABLE config.marc_field (
+    id                  SERIAL PRIMARY KEY,
+    marc_format         INTEGER NOT NULL
+                        REFERENCES config.marc_format (id) DEFERRABLE INITIALLY DEFERRED,
+    marc_record_type    config.marc_record_type NOT NULL,
+    tag                 CHAR(3) NOT NULL,
+    name                TEXT,
+    description         TEXT,
+    fixed_field         BOOLEAN,
+    repeatable          BOOLEAN,
+    mandatory           BOOLEAN,
+    hidden              BOOLEAN,
+    owner               INTEGER REFERENCES actor.org_unit (id)
+                        -- if the owner is null, the data about the field is
+                        -- assumed to come from the controlling MARC standard
+);
+
+COMMENT ON TABLE config.marc_field IS $$
+This table stores a list of MARC fields recognized by the Evergreen
+instance.  Note that we're not aiming for completely generic ISO2709
+support: we're assuming things like three characters for a tag,
+one-character subfield labels, two indicators per variable data field,
+and the like, all of which are technically specializations of ISO2709.
+
+Of particular significance is the owner column; if it's set to a null
+value, the field definition is assumed to come from a national
+standards body; if it's set to a non-null value, the field definition
+is an OU-level addition to or override of the standard.
+$$;
+
+CREATE INDEX config_marc_field_tag_idx ON config.marc_field (tag);
+CREATE INDEX config_marc_field_owner_idx ON config.marc_field (owner);
+
+CREATE UNIQUE INDEX config_standard_marc_tags_are_unique
+    ON config.marc_field(marc_format, marc_record_type, tag)
+    WHERE owner IS NULL;
+ALTER TABLE config.marc_field
+    ADD CONSTRAINT config_standard_marc_tags_are_fully_specified
+    CHECK ((owner IS NOT NULL) OR
+           (
+                owner IS NULL AND
+                repeatable IS NOT NULL AND
+                mandatory IS NOT NULL AND
+                hidden IS NOT NULL
+           )
+          );
+
+CREATE TABLE config.marc_subfield (
+    id                  SERIAL PRIMARY KEY,
+    marc_format         INTEGER NOT NULL
+                        REFERENCES config.marc_format (id) DEFERRABLE INITIALLY DEFERRED,
+    marc_record_type    config.marc_record_type NOT NULL,
+    tag                 CHAR(3) NOT NULL,
+    code                CHAR(1) NOT NULL,
+    description         TEXT,
+    repeatable          BOOLEAN,
+    mandatory           BOOLEAN,
+    hidden              BOOLEAN,
+    value_ctype         TEXT
+                        REFERENCES config.record_attr_definition (name)
+                            DEFERRABLE INITIALLY DEFERRED,
+    owner               INTEGER REFERENCES actor.org_unit (id)
+                        -- if the owner is null, the data about the subfield is
+                        -- assumed to come from the controlling MARC standard
+);
+
+COMMENT ON TABLE config.marc_subfield IS $$
+This table stores the list of subfields recognized by this Evergreen
+instance.  As with config.marc_field, of particular significance is the
+owner column; if it's set to a null value, the subfield definition is
+assumed to come from a national standards body; if it's set to a non-null
+value, the subfield definition is an OU-level addition to or override
+of the standard.
+$$;
+
+CREATE INDEX config_marc_subfield_tag_code_idx ON config.marc_subfield (tag, code);
+CREATE UNIQUE INDEX config_standard_marc_subfields_are_unique
+    ON config.marc_subfield(marc_format, marc_record_type, tag, code)
+    WHERE owner IS NULL;
+ALTER TABLE config.marc_subfield
+    ADD CONSTRAINT config_standard_marc_subfields_are_fully_specified
+    CHECK ((owner IS NOT NULL) OR
+           (
+                owner IS NULL AND
+                repeatable IS NOT NULL AND
+                mandatory IS NOT NULL AND
+                hidden IS NOT NULL
+           )
+          );
+
+CREATE OR REPLACE VIEW config.marc_field_for_ou AS
+WITH RECURSIVE ou_marc_fields(id, marc_format, marc_record_type, tag,
+                              name, description, fixed_field, repeatable,
+                              mandatory, hidden, owner, depth) AS (
+    -- start with all MARC fields defined by the controlling national standard
+    SELECT id, marc_format, marc_record_type, tag, name, description, fixed_field, repeatable, mandatory, hidden, owner, 0
+    FROM config.marc_field
+    WHERE owner IS NULL
+    UNION
+    -- as well as any purely local ones that have been added
+    SELECT id, marc_format, marc_record_type, tag, name, description, fixed_field, repeatable, mandatory, hidden, owner, 0
+    FROM config.marc_field
+    WHERE ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag] NOT IN (
+        SELECT ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag]
+        FROM config.marc_field
+        WHERE owner IS NULL
+    )
+  UNION
+    -- and start walking down the org unit hierarchy,
+    -- letting entries for child OUs override field names,
+    -- descriptions, repeatability, and the like.  Letting
+    -- fixed-fieldness be overridable is something that falls
+    -- from the implementation, but is unlikely to be useful
+    SELECT c.id, marc_format, marc_record_type, tag,
+           COALESCE(c.name, p.name),
+           COALESCE(c.description, p.description),
+           COALESCE(c.fixed_field, p.fixed_field),
+           COALESCE(c.repeatable, p.repeatable),
+           COALESCE(c.mandatory, p.mandatory),
+           COALESCE(c.hidden, p.hidden),
+           c.owner,
+           depth + 1
+    FROM config.marc_field c
+    JOIN ou_marc_fields p USING (marc_format, marc_record_type, tag)
+    JOIN actor.org_unit aou ON (c.owner = aou.id)
+    WHERE (aou.parent_ou = p.owner OR (aou.parent_ou IS NULL AND p.owner IS NULL))
+)
+SELECT id, marc_format, marc_record_type, tag,
+       name, description, fixed_field, repeatable,
+       mandatory, hidden, owner, depth
+FROM ou_marc_fields;
+
+CREATE OR REPLACE VIEW config.marc_subfield_for_ou AS
+WITH RECURSIVE ou_marc_subfields(id, marc_format, marc_record_type, tag, code,
+                              description, repeatable,
+                              mandatory, hidden, value_ctype, owner, depth) AS (
+    -- start with all MARC subfields defined by the controlling national standard
+    SELECT id, marc_format, marc_record_type, tag, code, description, repeatable, mandatory,
+           hidden, value_ctype, owner, 0
+    FROM config.marc_subfield
+    WHERE owner IS NULL
+    UNION
+    -- as well as any purely local ones that have been added
+    SELECT id, marc_format, marc_record_type, tag, code, description, repeatable, mandatory,
+           hidden, value_ctype, owner, 0
+    FROM config.marc_subfield
+    WHERE ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag, code] NOT IN (
+        SELECT ARRAY[marc_format::TEXT, marc_record_type::TEXT, tag, code]
+        FROM config.marc_subfield
+        WHERE owner IS NULL
+    )
+  UNION
+    -- and start walking down the org unit hierarchy,
+    -- letting entries for child OUs override subfield
+    -- descriptions, repeatability, and the like.
+    SELECT c.id, marc_format, marc_record_type, tag, code,
+           COALESCE(c.description, p.description),
+           COALESCE(c.repeatable, p.repeatable),
+           COALESCE(c.mandatory, p.mandatory),
+           COALESCE(c.hidden, p.hidden),
+           COALESCE(c.value_ctype, p.value_ctype),
+           c.owner,
+           depth + 1
+    FROM config.marc_subfield c
+    JOIN ou_marc_subfields p USING (marc_format, marc_record_type, tag, code)
+    JOIN actor.org_unit aou ON (c.owner = aou.id)
+    WHERE (aou.parent_ou = p.owner OR (aou.parent_ou IS NULL AND p.owner IS NULL))
+)
+SELECT id, marc_format, marc_record_type, tag, code,
+       description, repeatable,
+       mandatory, hidden, value_ctype, owner, depth
+FROM ou_marc_subfields;
+
+CREATE OR REPLACE FUNCTION config.ou_marc_fields(marc_format INTEGER, marc_record_type config.marc_record_type, ou INTEGER) RETURNS SETOF config.marc_field AS $func$
+    SELECT id, marc_format, marc_record_type, tag, name, description, fixed_field, repeatable, mandatory, hidden, owner
+    FROM (
+        SELECT id, marc_format, marc_record_type, tag, name, description,
+              fixed_field, repeatable, mandatory, hidden, owner, depth,
+              MAX(depth) OVER (PARTITION BY marc_format, marc_record_type, tag) AS winner
+        FROM config.marc_field_for_ou
+        WHERE (owner IS NULL
+               OR owner IN (SELECT id FROM actor.org_unit_ancestors($3)))
+        AND   marc_format = $1
+        AND   marc_record_type = $2
+    ) AS s
+    WHERE depth = winner
+    AND not hidden;
+$func$ LANGUAGE SQL;
+
+CREATE OR REPLACE FUNCTION config.ou_marc_subfields(marc_format INTEGER, marc_record_type config.marc_record_type, ou INTEGER) RETURNS SETOF config.marc_subfield AS $func$
+    SELECT id, marc_format, marc_record_type, tag, code, description, repeatable, mandatory,
+           hidden, value_ctype, owner
+    FROM (
+        SELECT id, marc_format, marc_record_type, tag, code, description,
+              repeatable, mandatory, hidden, value_ctype, owner, depth,
+              MAX(depth) OVER (PARTITION BY marc_format, marc_record_type, tag, code) AS winner
+        FROM config.marc_subfield_for_ou
+        WHERE (owner IS NULL
+               OR owner IN (SELECT id FROM actor.org_unit_ancestors($3)))
+        AND   marc_format = $1
+        AND   marc_record_type = $2
+    ) AS s
+    WHERE depth = winner
+    AND not hidden;
+$func$ LANGUAGE SQL;
+
+COMMIT;