4 INSERT INTO config.upgrade_log (version) VALUES ('0184'); -- miker
6 CREATE OR REPLACE FUNCTION vandelay.add_field ( incumbent_xml TEXT, incoming_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
11 my $incumbent_xml = shift;
12 my $incoming_xml = shift;
13 my $field_spec = shift;
14 $field_spec =~ s/\s+//g;
16 my $incumbent_r = MARC::Record->new_from_xml( $incumbent_xml );
17 my $incoming_r = MARC::Record->new_from_xml( $incoming_xml );
19 return $incumbent_xml unless ($incumbent_r && $incoming_r);
21 my @field_list = split(',', $field_spec);
24 for my $f (@field_list) {
25 if ($f =~ /^(.{3})(.*)$/) {
26 $fields{$1} = [ split('', $2) ];
30 for my $f ( keys %fields) {
31 if ( @{$fields{$f}} ) {
32 for my $from_field ($incoming_r->field( $f )) {
33 for my $to_field ($incumbent_r->field( $f )) {
34 my @new_sf = map { ($_ => $from_field->subfield($_)) } @{$fields{$f}};
35 $to_field->add_subfields( @new_sf );
39 my @new_fields = map { $_->clone } $incoming_r->field( $f );
40 $incumbent_r->insert_fields_ordered( @new_fields );
44 $incumbent_xml = $incumbent_r->as_xml_record;
45 $incumbent_xml =~ s/^<\?.+?\?>$//mo;
46 $incumbent_xml =~ s/\n//sgo;
47 $incumbent_xml =~ s/>\s+</></sgo;
49 return $incumbent_xml;
53 CREATE OR REPLACE FUNCTION vandelay.strip_field ( xml TEXT, field TEXT ) RETURNS TEXT AS $_$
59 my $r = MARC::Record->new_from_xml( $xml );
61 return $xml unless ($r);
63 my $field_spec = shift;
64 $field_spec =~ s/\s+//g;
66 my @field_list = split(',', $field_spec);
69 for my $f (@field_list) {
70 if ($f =~ /^(.{3})(.*)$/) {
71 $fields{$1} = [ split('', $2) ];
75 for my $f ( keys %fields) {
76 if ( @{$fields{$f}} ) {
77 $_->delete_subfield(code => $fields{$f}) for ($r->field( $f ));
79 $r->delete_field( $_ ) for ( $r->field( $f ) );
83 $xml = $r->as_xml_record;
84 $xml =~ s/^<\?.+?\?>$//mo;
86 $xml =~ s/>\s+</></sgo;
92 CREATE OR REPLACE FUNCTION vandelay.replace_field ( incumbent_xml TEXT, incoming_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
93 SELECT vandelay.add_field( vandelay.strip_field( $1, $3), $2, $3 );
96 CREATE OR REPLACE FUNCTION vandelay.preserve_field ( incumbent_xml TEXT, incoming_xml TEXT, field TEXT ) RETURNS TEXT AS $_$
97 SELECT vandelay.add_field( vandelay.strip_field( $2, $3), $1, $3 );