3 INSERT INTO config.upgrade_log (version) VALUES ('0491'); -- dbwells
5 CREATE OR REPLACE FUNCTION maintain_901 () RETURNS TRIGGER AS $func$
7 use_id_for_tcn BOOLEAN;
9 -- Remove any existing 901 fields before we insert the authoritative one
10 NEW.marc := REGEXP_REPLACE(NEW.marc, E'<datafield[^>]*?tag="901".+?</datafield>', '', 'g');
12 IF TG_TABLE_SCHEMA = 'biblio' THEN
13 -- Set TCN value to record ID?
14 SELECT enabled FROM config.global_flag INTO use_id_for_tcn
15 WHERE name = 'cat.bib.use_id_for_tcn';
17 IF use_id_for_tcn = 't' THEN
18 NEW.tcn_value := NEW.id;
21 NEW.marc := REGEXP_REPLACE(
23 E'(</(?:[^:]*?:)?record>)',
24 E'<datafield tag="901" ind1=" " ind2=" ">' ||
25 '<subfield code="a">' || NEW.tcn_value || E'</subfield>' ||
26 '<subfield code="b">' || NEW.tcn_source || E'</subfield>' ||
27 '<subfield code="c">' || NEW.id || E'</subfield>' ||
28 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
29 CASE WHEN NEW.owner IS NOT NULL THEN '<subfield code="o">' || NEW.owner || E'</subfield>' ELSE '' END ||
30 CASE WHEN NEW.share_depth IS NOT NULL THEN '<subfield code="d">' || NEW.share_depth || E'</subfield>' ELSE '' END ||
33 ELSIF TG_TABLE_SCHEMA = 'authority' THEN
34 NEW.marc := REGEXP_REPLACE(
36 E'(</(?:[^:]*?:)?record>)',
37 E'<datafield tag="901" ind1=" " ind2=" ">' ||
38 '<subfield code="c">' || NEW.id || E'</subfield>' ||
39 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
42 ELSIF TG_TABLE_SCHEMA = 'serial' 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>' ||
49 '<subfield code="o">' || NEW.owning_lib || E'</subfield>' ||
50 CASE WHEN NEW.record IS NOT NULL THEN '<subfield code="r">' || NEW.record || E'</subfield>' ELSE '' END ||
54 NEW.marc := REGEXP_REPLACE(
56 E'(</(?:[^:]*?:)?record>)',
57 E'<datafield tag="901" ind1=" " ind2=" ">' ||
58 '<subfield code="c">' || NEW.id || E'</subfield>' ||
59 '<subfield code="t">' || TG_TABLE_SCHEMA || E'</subfield>' ||
66 $func$ LANGUAGE PLPGSQL;