BEGIN; INSERT INTO config.upgrade_log (version) VALUES ('0329'); -- dbs ALTER TABLE authority.record_entry ADD COLUMN owner INT; ALTER TABLE serial.record_entry ADD COLUMN owner INT; INSERT INTO config.global_flag (name, label) -- defaults to enabled=FALSE VALUES ( 'cat.maintain_control_numbers', oils_i18n_gettext( 'cat.maintain_control_numbers', 'Cat: Maintain 001/003/035 according to the MARC21 specification', 'cgf', 'label' ) ); INSERT INTO config.org_unit_setting_type ( name, label, description, datatype ) VALUES ( 'cat.marc_control_number_identifier', oils_i18n_gettext( 'cat.marc_control_number_identifier', 'Cat: Defines the control number identifier used in 003 and 035 fields.', 'coust', 'label'), oils_i18n_gettext( 'cat.marc_control_number_identifier', 'Cat: Defines the control number identifier used in 003 and 035 fields.', 'coust', 'description'), 'string' ); CREATE OR REPLACE FUNCTION maintain_control_numbers() RETURNS TRIGGER AS $func$ use strict; use MARC::Record; use MARC::File::XML; use Encode; use Unicode::Normalize; my $record = MARC::Record->new_from_xml($_TD->{new}{marc}); my $schema = $_TD->{table_schema}; my $rec_id = $_TD->{new}{id}; # Short-circuit if maintaining control numbers per MARC21 spec is not enabled my $enable = spi_exec_query("SELECT enabled FROM config.global_flag WHERE name = 'cat.maintain_control_numbers'"); if (!($enable->{processed}) or $enable->{rows}[0]->{enabled} eq 'f') { return; } # Get the control number identifier from an OU setting based on $_TD->{new}{owner} my $ou_cni = 'EVRGRN'; # bre.owner can be null, so fall back to the consortial setting my $owner = $_TD->{new}{owner} || 1; my $ous_rv = spi_exec_query("SELECT value FROM actor.org_unit_ancestor_setting('cat.marc_control_number_identifier', $owner)"); if ($ous_rv->{processed}) { $ou_cni = $ous_rv->{rows}[0]->{value}; $ou_cni =~ s/"//g; # Stupid VIM syntax highlighting" } else { # Fall back to the shortname of the OU if there was no OU setting $ous_rv = spi_exec_query("SELECT shortname FROM actor.org_unit WHERE id = $owner"); if ($ous_rv->{processed}) { $ou_cni = $ous_rv->{rows}[0]->{shortname}; } } my ($create, $munge) = (0, 0); my ($orig_001, $orig_003) = ('', ''); # Incoming MARC records may have multiple 001s or 003s, despite the spec my @control_ids = $record->field('003'); my @scns = $record->field('035'); foreach my $id_field ('001', '003') { my $spec_value; my @controls = $record->field($id_field); if ($id_field eq '001') { $spec_value = $rec_id; } else { $spec_value = $ou_cni; } # Create the 001/003 if none exist if (scalar(@controls) == 0) { $record->insert_fields_ordered(MARC::Field->new($id_field, $spec_value)); $create = 1; } elsif (scalar(@controls) > 1) { # Do we already have the right 001/003 value in the existing set? unless (grep $_->data() eq $spec_value, @controls) { $munge = 1; } # Delete the other fields, as with more than 1 001/003 we do not know which 003/001 to match foreach my $control (@controls) { unless ($control->data() eq $spec_value) { $record->delete_field($control); } } } else { # Only one field; check to see if we need to munge it unless (grep $_->data() eq $spec_value, @controls) { $munge = 1; } } } # Now, if we need to munge the 001, we will first push the existing 001/003 into the 035 if ($munge) { my $scn = "(" . $record->field('003')->data() . ")" . $record->field('001')->data(); # Do not create duplicate 035 fields unless (grep $_->subfield('a') eq $scn, @scns) { $record->insert_fields_ordered(MARC::Field->new('035', '', '', 'a' => $scn)); } } # Set the 001/003 and update the MARC if ($create or $munge) { $record->field('001')->data($rec_id); $record->field('003')->data($ou_cni); my $xml = $record->as_xml_record(); $xml =~ s/\n//sgo; $xml =~ s/^<\?xml.+\?\s*>//go; $xml =~ s/>\s+entityize() # to avoid having to set PERL5LIB for PostgreSQL as well # If we are going to convert non-ASCII characters to XML entities, # we had better be dealing with a UTF8 string to begin with $xml = decode_utf8($xml); $xml = NFC($xml); # Convert raw ampersands to entities $xml =~ s/&(?!\S+;)/&/gso; # Convert Unicode characters to entities $xml =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe; $xml =~ s/[\x00-\x1f]//go; $_TD->{new}{marc} = $xml; return "MODIFY"; } return; $func$ LANGUAGE PLPERLU; CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON authority.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers(); CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON biblio.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers(); CREATE TRIGGER c_maintain_control_numbers BEFORE INSERT OR UPDATE ON serial.record_entry FOR EACH ROW EXECUTE PROCEDURE maintain_control_numbers(); COMMIT;