Open-ILS/src/sql/Pg/011.schema.authority.sql

   1 /*
   2  * Copyright (C) 2004-2008  Georgia Public Library Service
   3  * Copyright (C) 2008  Equinox Software, Inc.
   4  * Mike Rylander <miker@esilibrary.com>
   5  *
   6  * This program is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU General Public License
   8  * as published by the Free Software Foundation; either version 2
   9  * of the License, or (at your option) any later version.
  10  *
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14  * GNU General Public License for more details.
  15  *
  16  */
  17
  18 DROP SCHEMA IF EXISTS authority CASCADE;
  19
  20 BEGIN;
  21 CREATE SCHEMA authority;
  22
  23 CREATE TABLE authority.record_entry (
  24         id              BIGSERIAL       PRIMARY KEY,
  25         arn_source      TEXT            NOT NULL DEFAULT 'AUTOGEN',
  26         arn_value       TEXT            NOT NULL,
  27         creator         INT             NOT NULL DEFAULT 1,
  28         editor          INT             NOT NULL DEFAULT 1,
  29         create_date     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
  30         edit_date       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
  31         active          BOOL            NOT NULL DEFAULT TRUE,
  32         deleted         BOOL            NOT NULL DEFAULT FALSE,
  33         source          INT,
  34         marc            TEXT            NOT NULL,
  35         last_xact_id    TEXT            NOT NULL,
  36         owner           INT
  37 );
  38 CREATE INDEX authority_record_entry_creator_idx ON authority.record_entry ( creator );
  39 CREATE INDEX authority_record_entry_editor_idx ON authority.record_entry ( editor );
  40 CREATE UNIQUE INDEX authority_record_unique_tcn ON authority.record_entry (arn_source,arn_value) WHERE deleted = FALSE OR deleted IS FALSE;
  41 CREATE TRIGGER a_marcxml_is_well_formed BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE biblio.check_marcxml_well_formed();
  42 CREATE TRIGGER b_maintain_901 BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_901();
  43 CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers();
  44
  45 CREATE TABLE authority.bib_linking (
  46     id          BIGSERIAL   PRIMARY KEY,
  47     bib         BIGINT      NOT NULL REFERENCES biblio.record_entry (id),
  48     authority   BIGINT      NOT NULL REFERENCES authority.record_entry (id)
  49 );
  50 CREATE INDEX authority_bl_bib_idx ON authority.bib_linking ( bib );
  51 CREATE UNIQUE INDEX authority_bl_bib_authority_once_idx ON authority.bib_linking ( authority, bib );
  52
  53 CREATE TABLE authority.record_note (
  54         id              BIGSERIAL       PRIMARY KEY,
  55         record          BIGINT          NOT NULL REFERENCES authority.record_entry (id) DEFERRABLE INITIALLY DEFERRED,
  56         value           TEXT            NOT NULL,
  57         creator         INT             NOT NULL DEFAULT 1,
  58         editor          INT             NOT NULL DEFAULT 1,
  59         create_date     TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now(),
  60         edit_date       TIMESTAMP WITH TIME ZONE        NOT NULL DEFAULT now()
  61 );
  62 CREATE INDEX authority_record_note_record_idx ON authority.record_note ( record );
  63 CREATE INDEX authority_record_note_creator_idx ON authority.record_note ( creator );
  64 CREATE INDEX authority_record_note_editor_idx ON authority.record_note ( editor );
  65
  66 CREATE TABLE authority.rec_descriptor (
  67         id              BIGSERIAL PRIMARY KEY,
  68         record          BIGINT,
  69         record_status   TEXT,
  70         char_encoding   TEXT
  71 );
  72 CREATE INDEX authority_rec_descriptor_record_idx ON authority.rec_descriptor (record);
  73
  74 CREATE TABLE authority.full_rec (
  75         id              BIGSERIAL       PRIMARY KEY,
  76         record          BIGINT          NOT NULL,
  77         tag             CHAR(3)         NOT NULL,
  78         ind1            TEXT,
  79         ind2            TEXT,
  80         subfield        TEXT,
  81         value           TEXT            NOT NULL,
  82         index_vector    tsvector        NOT NULL
  83 );
  84 CREATE INDEX authority_full_rec_record_idx ON authority.full_rec (record);
  85 CREATE INDEX authority_full_rec_tag_subfield_idx ON authority.full_rec (tag, subfield);
  86 CREATE INDEX authority_full_rec_tag_part_idx ON authority.full_rec (SUBSTRING(tag FROM 2));
  87 CREATE TRIGGER authority_full_rec_fti_trigger
  88         BEFORE UPDATE OR INSERT ON authority.full_rec
  89         FOR EACH ROW EXECUTE PROCEDURE tsearch2(index_vector, value);
  90
  91 CREATE INDEX authority_full_rec_index_vector_idx ON authority.full_rec USING GIST (index_vector);
  92 /* Enable LIKE to use an index for database clusters with locales other than C or POSIX */
  93 CREATE INDEX authority_full_rec_value_tpo_index ON authority.full_rec (value text_pattern_ops);
  94
  95 CREATE OR REPLACE VIEW authority.tracing_links AS
  96         SELECT  main.record AS record,
  97                 main.id AS main_id,
  98                 main.tag AS main_tag,
  99                 main.value AS main_value,
 100                 substr(link.value,1,1) AS relationship,
 101                 substr(link.value,2,1) AS use_restriction,
 102                 substr(link.value,3,1) AS deprecation,
 103                 substr(link.value,4,1) AS display_restriction,
 104                 link_value.id AS link_id,
 105                 link_value.tag AS link_tag,
 106                 link_value.value AS link_value
 107           FROM  authority.full_rec main
 108                 JOIN authority.full_rec link
 109                         ON (    link.record = main.record
 110                                 AND link.tag in ((main.tag::int + 400)::text, (main.tag::int + 300)::text)
 111                                 AND link.subfield = 'w' )
 112                 JOIN authority.full_rec link_value
 113                         ON (    link_value.record = main.record
 114                                 AND link_value.tag = link.tag
 115                                 AND link_value.subfield = 'a' )
 116           WHERE main.tag IN ('100','110','111','130','150','151','155','180','181','182','185')
 117                 AND main.subfield = 'a';
 118
 119 -- Function to generate an ephemeral overlay template from an authority record
 120 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( TEXT, BIGINT ) RETURNS TEXT AS $func$
 121
 122     use MARC::Record;
 123     use MARC::File::XML;
 124
 125     my $xml = shift;
 126     my $r = MARC::Record->new_from_xml( $xml );
 127
 128     return undef unless ($r);
 129
 130     my $id = shift() || $r->subfield( '901' => 'c' );
 131     $id =~ s/^\s*(?:\([^)]+\))?\s*(.+)\s*?$/$1/;
 132     return undef unless ($id); # We need an ID!
 133
 134     my $tmpl = MARC::Record->new();
 135
 136     my @rule_fields;
 137     for my $field ( $r->field( '1..' ) ) { # Get main entry fields from the authority record
 138
 139         my $tag = $field->tag;
 140         my $i1 = $field->indicator(1);
 141         my $i2 = $field->indicator(2);
 142         my $sf = join '', map { $_->[0] } $field->subfields;
 143         my @data = map { @$_ } $field->subfields;
 144
 145         my @replace_them;
 146
 147         # Map the authority field to bib fields it can control.
 148         if ($tag >= 100 and $tag <= 111) {       # names
 149             @replace_them = map { $tag + $_ } (0, 300, 500, 600, 700);
 150         } elsif ($tag eq '130') {                # uniform title
 151             @replace_them = qw/130 240 440 730 830/;
 152         } elsif ($tag >= 150 and $tag <= 155) {  # subjects
 153             @replace_them = ($tag + 500);
 154         } elsif ($tag >= 180 and $tag <= 185) {  # floating subdivisions
 155             @replace_them = qw/100 400 600 700 800 110 410 610 710 810 111 411 611 711 811 130 240 440 730 830 650 651 655/;
 156         } else {
 157             next;
 158         }
 159
 160         # Dummy up the bib-side data
 161         $tmpl->append_fields(
 162             map {
 163                 MARC::Field->new( $_, $i1, $i2, @data )
 164             } @replace_them
 165         );
 166
 167         # Construct some 'replace' rules
 168         push @rule_fields, map { $_ . $sf . '[0~\)' .$id . '$]' } @replace_them;
 169     }
 170
 171     # Insert the replace rules into the template
 172     $tmpl->append_fields(
 173         MARC::Field->new( '905' => ' ' => ' ' => 'r' => join(',', @rule_fields ) )
 174     );
 175
 176     $xml = $tmpl->as_xml_record;
 177     $xml =~ s/^<\?.+?\?>$//mo;
 178
 179     # Leave formatting intact for now
 180     #$xml =~ s/\n//sgo;
 181     #$xml =~ s/>\s+</></sgo;
 182
 183     return $xml;
 184
 185 $func$ LANGUAGE PLPERLU;
 186
 187 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( BIGINT ) RETURNS TEXT AS $func$
 188     SELECT authority.generate_overlay_template( marc, id ) FROM authority.record_entry WHERE id = $1;
 189 $func$ LANGUAGE SQL;
 190
 191 CREATE OR REPLACE FUNCTION authority.generate_overlay_template ( TEXT ) RETURNS TEXT AS $func$
 192     SELECT authority.generate_overlay_template( $1, NULL );
 193 $func$ LANGUAGE SQL;
 194
 195
 196 COMMIT;