Open-ILS/src/sql/Pg/upgrade/0498.lowercase_via_perl.sql

   1 BEGIN;
   2
   3 INSERT INTO config.upgrade_log (version) VALUES ('0498'); -- dbs
   4
   5 -- Rather than polluting the public schema with general Evergreen
   6 -- functions, carve out a dedicated schema
   7 CREATE SCHEMA evergreen;
   8
   9 -- Replace all uses of PostgreSQL's built-in LOWER() function with
  10 -- a more locale-savvy PLPERLU evergreen.lowercase() function
  11 CREATE OR REPLACE FUNCTION evergreen.lowercase( TEXT ) RETURNS TEXT AS $$
  12     return lc(shift);
  13 $$ LANGUAGE PLPERLU STRICT IMMUTABLE;
  14
  15 -- update actor.usr_address indexes
  16 DROP INDEX IF EXISTS actor.actor_usr_addr_street1_idx;
  17 DROP INDEX IF EXISTS actor.actor_usr_addr_street2_idx;
  18 DROP INDEX IF EXISTS actor.actor_usr_addr_city_idx;
  19 DROP INDEX IF EXISTS actor.actor_usr_addr_state_idx;
  20 DROP INDEX IF EXISTS actor.actor_usr_addr_post_code_idx;
  21
  22 CREATE INDEX actor_usr_addr_street1_idx ON actor.usr_address (evergreen.lowercase(street1));
  23 CREATE INDEX actor_usr_addr_street2_idx ON actor.usr_address (evergreen.lowercase(street2));
  24 CREATE INDEX actor_usr_addr_city_idx ON actor.usr_address (evergreen.lowercase(city));
  25 CREATE INDEX actor_usr_addr_state_idx ON actor.usr_address (evergreen.lowercase(state));
  26 CREATE INDEX actor_usr_addr_post_code_idx ON actor.usr_address (evergreen.lowercase(post_code));
  27
  28 -- update actor.usr indexes
  29 DROP INDEX IF EXISTS actor.actor_usr_first_given_name_idx;
  30 DROP INDEX IF EXISTS actor.actor_usr_second_given_name_idx;
  31 DROP INDEX IF EXISTS actor.actor_usr_family_name_idx;
  32 DROP INDEX IF EXISTS actor.actor_usr_email_idx;
  33 DROP INDEX IF EXISTS actor.actor_usr_day_phone_idx;
  34 DROP INDEX IF EXISTS actor.actor_usr_evening_phone_idx;
  35 DROP INDEX IF EXISTS actor.actor_usr_other_phone_idx;
  36 DROP INDEX IF EXISTS actor.actor_usr_ident_value_idx;
  37 DROP INDEX IF EXISTS actor.actor_usr_ident_value2_idx;
  38
  39 CREATE INDEX actor_usr_first_given_name_idx ON actor.usr (evergreen.lowercase(first_given_name));
  40 CREATE INDEX actor_usr_second_given_name_idx ON actor.usr (evergreen.lowercase(second_given_name));
  41 CREATE INDEX actor_usr_family_name_idx ON actor.usr (evergreen.lowercase(family_name));
  42 CREATE INDEX actor_usr_email_idx ON actor.usr (evergreen.lowercase(email));
  43 CREATE INDEX actor_usr_day_phone_idx ON actor.usr (evergreen.lowercase(day_phone));
  44 CREATE INDEX actor_usr_evening_phone_idx ON actor.usr (evergreen.lowercase(evening_phone));
  45 CREATE INDEX actor_usr_other_phone_idx ON actor.usr (evergreen.lowercase(other_phone));
  46 CREATE INDEX actor_usr_ident_value_idx ON actor.usr (evergreen.lowercase(ident_value));
  47 CREATE INDEX actor_usr_ident_value2_idx ON actor.usr (evergreen.lowercase(ident_value2));
  48
  49 -- update actor.card indexes
  50 DROP INDEX IF EXISTS actor.actor_card_barcode_evergreen_lowercase_idx;
  51 CREATE INDEX actor_card_barcode_evergreen_lowercase_idx ON actor.card (evergreen.lowercase(barcode));
  52
  53 CREATE OR REPLACE FUNCTION vandelay.match_bib_record ( ) RETURNS TRIGGER AS $func$
  54 DECLARE
  55     attr        RECORD;
  56     attr_def    RECORD;
  57     eg_rec      RECORD;
  58     id_value    TEXT;
  59     exact_id    BIGINT;
  60 BEGIN
  61
  62     DELETE FROM vandelay.bib_match WHERE queued_record = NEW.id;
  63
  64     SELECT * INTO attr_def FROM vandelay.bib_attr_definition WHERE xpath = '//*[@tag="901"]/*[@code="c"]' ORDER BY id LIMIT 1;
  65
  66     IF attr_def IS NOT NULL AND attr_def.id IS NOT NULL THEN
  67         id_value := extract_marc_field('vandelay.queued_bib_record', NEW.id, attr_def.xpath, attr_def.remove);
  68
  69         IF id_value IS NOT NULL AND id_value <> '' AND id_value ~ $r$^\d+$$r$ THEN
  70             SELECT id INTO exact_id FROM biblio.record_entry WHERE id = id_value::BIGINT AND NOT deleted;
  71             SELECT * INTO attr FROM vandelay.queued_bib_record_attr WHERE record = NEW.id and field = attr_def.id LIMIT 1;
  72             IF exact_id IS NOT NULL THEN
  73                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, exact_id);
  74             END IF;
  75         END IF;
  76     END IF;
  77
  78     IF exact_id IS NULL THEN
  79         FOR attr IN SELECT a.* FROM vandelay.queued_bib_record_attr a JOIN vandelay.bib_attr_definition d ON (d.id = a.field) WHERE record = NEW.id AND d.ident IS TRUE LOOP
  80
  81                 -- All numbers? check for an id match
  82                 IF (attr.attr_value ~ $r$^\d+$$r$) THEN
  83                 FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE id = attr.attr_value::BIGINT AND deleted IS FALSE LOOP
  84                         INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, eg_rec.id);
  85                         END LOOP;
  86                 END IF;
  87
  88                 -- Looks like an ISBN? check for an isbn match
  89                 IF (attr.attr_value ~* $r$^[0-9x]+$$r$ AND character_length(attr.attr_value) IN (10,13)) THEN
  90                 FOR eg_rec IN EXECUTE $$SELECT * FROM metabib.full_rec fr WHERE fr.value LIKE evergreen.lowercase('$$ || attr.attr_value || $$%') AND fr.tag = '020' AND fr.subfield = 'a'$$ LOOP
  91                                 PERFORM id FROM biblio.record_entry WHERE id = eg_rec.record AND deleted IS FALSE;
  92                                 IF FOUND THEN
  93                                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('isbn', attr.id, NEW.id, eg_rec.record);
  94                                 END IF;
  95                         END LOOP;
  96
  97                         -- subcheck for isbn-as-tcn
  98                     FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = 'i' || attr.attr_value AND deleted IS FALSE LOOP
  99                             INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
 100                 END LOOP;
 101                 END IF;
 102
 103                 -- check for an OCLC tcn_value match
 104                 IF (attr.attr_value ~ $r$^o\d+$$r$) THEN
 105                     FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = regexp_replace(attr.attr_value,'^o','ocm') AND deleted IS FALSE LOOP
 106                             INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
 107                 END LOOP;
 108                 END IF;
 109
 110                 -- check for a direct tcn_value match
 111             FOR eg_rec IN SELECT * FROM biblio.record_entry WHERE tcn_value = attr.attr_value AND deleted IS FALSE LOOP
 112                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('tcn_value', attr.id, NEW.id, eg_rec.id);
 113             END LOOP;
 114
 115                 -- check for a direct item barcode match
 116             FOR eg_rec IN
 117                     SELECT  DISTINCT b.*
 118                       FROM  biblio.record_entry b
 119                             JOIN asset.call_number cn ON (cn.record = b.id)
 120                             JOIN asset.copy cp ON (cp.call_number = cn.id)
 121                       WHERE cp.barcode = attr.attr_value AND cp.deleted IS FALSE
 122             LOOP
 123                 INSERT INTO vandelay.bib_match (field_type, matched_attr, queued_record, eg_record) VALUES ('id', attr.id, NEW.id, eg_rec.id);
 124             END LOOP;
 125
 126         END LOOP;
 127     END IF;
 128
 129     RETURN NULL;
 130 END;
 131 $func$ LANGUAGE PLPGSQL;
 132
 133
 134 COMMIT;