Open-ILS/src/sql/Pg/upgrade/0508.schema.maintain_901_amp_fix.sql

   1 BEGIN;
   2
   3 INSERT INTO config.upgrade_log (version) VALUES ('0508'); -- gmc
   4
   5 CREATE OR REPLACE FUNCTION maintain_901 () RETURNS TRIGGER AS $func$
   6 DECLARE
   7     use_id_for_tcn BOOLEAN;
   8     norm_tcn_value TEXT;
   9     norm_tcn_source TEXT;
  10 BEGIN
  11     -- Remove any existing 901 fields before we insert the authoritative one
  12     NEW.marc := REGEXP_REPLACE(NEW.marc, E'<datafield[^>]*?tag="901".+?</datafield>', '', 'g');
  13
  14     IF TG_TABLE_SCHEMA = 'biblio' THEN
  15         -- Set TCN value to record ID?
  16         SELECT enabled FROM config.global_flag INTO use_id_for_tcn
  17             WHERE name = 'cat.bib.use_id_for_tcn';
  18
  19         IF use_id_for_tcn = 't' THEN
  20             NEW.tcn_value := NEW.id;
  21             norm_tcn_value := NEW.tcn_value;
  22         ELSE
  23             -- yes, ampersands can show up in tcn_values ...
  24             norm_tcn_value := REGEXP_REPLACE(NEW.tcn_value, E'&(?!\\S+;)', '&amp;', 'g');
  25         END IF;
  26         -- ... and TCN sources
  27         -- FIXME we have here yet another (stub) version of entityize
  28         norm_tcn_source := REGEXP_REPLACE(NEW.tcn_source, E'&(?!\\S+;)', '&amp;', 'g');
  29
  30         NEW.marc := REGEXP_REPLACE(
  31             NEW.marc,
  32             E'(</(?:[^:]*?:)?record>)',
  33             E'<datafield tag="901" ind1=" " ind2=" ">' ||
  34                 '<subfield code="a">' || norm_tcn_value || E'</subfield>' ||
  35                 '<subfield code="b">' || norm_tcn_source || E'</subfield>' ||
  36                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
  37                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
  38                 CASE WHEN NEW.owner IS NOT NULL THEN '<subfield code="o">' || NEW.owner || E'</subfield>' ELSE '' END ||
  39                 CASE WHEN NEW.share_depth IS NOT NULL THEN '<subfield code="d">' || NEW.share_depth || E'</subfield>' ELSE '' END ||
  40              E'</datafield>\\1'
  41         );
  42     ELSIF TG_TABLE_SCHEMA = 'authority' THEN
  43         NEW.marc := REGEXP_REPLACE(
  44             NEW.marc,
  45             E'(</(?:[^:]*?:)?record>)',
  46             E'<datafield tag="901" ind1=" " ind2=" ">' ||
  47                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
  48                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
  49              E'</datafield>\\1'
  50         );
  51     ELSIF TG_TABLE_SCHEMA = 'serial' THEN
  52         NEW.marc := REGEXP_REPLACE(
  53             NEW.marc,
  54             E'(</(?:[^:]*?:)?record>)',
  55             E'<datafield tag="901" ind1=" " ind2=" ">' ||
  56                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
  57                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
  58                 '<subfield code="o">' || NEW.owning_lib || E'</subfield>' ||
  59                 CASE WHEN NEW.record IS NOT NULL THEN '<subfield code="r">' || NEW.record || E'</subfield>' ELSE '' END ||
  60              E'</datafield>\\1'
  61         );
  62     ELSE
  63         NEW.marc := REGEXP_REPLACE(
  64             NEW.marc,
  65             E'(</(?:[^:]*?:)?record>)',
  66             E'<datafield tag="901" ind1=" " ind2=" ">' ||
  67                 '<subfield code="c">' || NEW.id || E'</subfield>' ||
  68                 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
  69              E'</datafield>\\1'
  70         );
  71     END IF;
  72
  73     RETURN NEW;
  74 END;
  75 $func$ LANGUAGE PLPGSQL;
  76
  77 COMMIT;