1 --Upgrade Script for 2.1.2 to 2.1.3
3 INSERT INTO config.upgrade_log (version) VALUES ('2.1.3');
4 -- Evergreen DB patch 0722.schema.acq-po-state-constraint.sql
7 INSERT INTO config.upgrade_log (version) VALUES ('0722');
9 ALTER TABLE acq.purchase_order ADD CONSTRAINT valid_po_state
10 CHECK (state IN ('new','pending','on-order','received','cancelled'));
13 INSERT INTO config.upgrade_log (version) VALUES ('0725'); -- gmcharlt/denials
14 INSERT INTO config.upgrade_log (version) VALUES ('0726'); -- denials
16 CREATE OR REPLACE FUNCTION evergreen.maintain_901 () RETURNS TRIGGER AS $func$
19 use MARC::File::XML (BinaryEncoding => 'UTF-8');
22 use Unicode::Normalize;
24 MARC::Charset->assume_unicode(1);
26 my $schema = $_TD->{table_schema};
27 my $marc = MARC::Record->new_from_xml($_TD->{new}{marc});
29 my @old901s = $marc->field('901');
30 $marc->delete_fields(@old901s);
32 if ($schema eq 'biblio') {
33 my $tcn_value = $_TD->{new}{tcn_value};
35 # Set TCN value to record ID?
36 my $id_as_tcn = spi_exec_query("
38 FROM config.global_flag
39 WHERE name = 'cat.bib.use_id_for_tcn'
41 if (($id_as_tcn->{processed}) && $id_as_tcn->{rows}[0]->{enabled} eq 't') {
42 $tcn_value = $_TD->{new}{id};
45 my $new_901 = MARC::Field->new("901", " ", " ",
47 "b" => $_TD->{new}{tcn_source},
48 "c" => $_TD->{new}{id},
52 if ($_TD->{new}{owner}) {
53 $new_901->add_subfields("o" => $_TD->{new}{owner});
56 if ($_TD->{new}{share_depth}) {
57 $new_901->add_subfields("d" => $_TD->{new}{share_depth});
60 $marc->append_fields($new_901);
61 } elsif ($schema eq 'authority') {
62 my $new_901 = MARC::Field->new("901", " ", " ",
63 "c" => $_TD->{new}{id},
66 $marc->append_fields($new_901);
67 } elsif ($schema eq 'serial') {
68 my $new_901 = MARC::Field->new("901", " ", " ",
69 "c" => $_TD->{new}{id},
71 "o" => $_TD->{new}{owning_lib},
74 if ($_TD->{new}{record}) {
75 $new_901->add_subfields("r" => $_TD->{new}{record});
78 $marc->append_fields($new_901);
80 my $new_901 = MARC::Field->new("901", " ", " ",
81 "c" => $_TD->{new}{id},
84 $marc->append_fields($new_901);
87 my $xml = $marc->as_xml_record();
89 $xml =~ s/^<\?xml.+\?\s*>//go;
90 $xml =~ s/>\s+</></go;
93 # Embed a version of OpenILS::Application::AppUtils->entityize()
94 # to avoid having to set PERL5LIB for PostgreSQL as well
96 # If we are going to convert non-ASCII characters to XML entities,
97 # we had better be dealing with a UTF8 string to begin with
98 $xml = decode_utf8($xml);
102 # Convert raw ampersands to entities
103 $xml =~ s/&(?!\S+;)/&/gso;
105 # Convert Unicode characters to entities
106 $xml =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
108 $xml =~ s/[\x00-\x1f]//go;
109 $_TD->{new}{marc} = $xml;
112 $func$ LANGUAGE PLPERLU;