3 INSERT INTO config.upgrade_log (version) VALUES ('0508'); -- gmc
5 CREATE OR REPLACE FUNCTION maintain_901 () RETURNS TRIGGER AS $func$
7 use_id_for_tcn BOOLEAN;
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');
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';
19 IF use_id_for_tcn = 't' THEN
20 NEW.tcn_value := NEW.id;
21 norm_tcn_value := NEW.tcn_value;
23 -- yes, ampersands can show up in tcn_values ...
24 norm_tcn_value := REGEXP_REPLACE(NEW.tcn_value, E'&(?!\\S+;)', '&', 'g');
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+;)', '&', 'g');
30 NEW.marc := REGEXP_REPLACE(
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 ||
42 ELSIF TG_TABLE_SCHEMA = 'authority' THEN
43 NEW.marc := REGEXP_REPLACE(
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>' ||
51 ELSIF TG_TABLE_SCHEMA = 'serial' THEN
52 NEW.marc := REGEXP_REPLACE(
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 ||
63 NEW.marc := REGEXP_REPLACE(
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>' ||
75 $func$ LANGUAGE PLPGSQL;