Apply patch from Galen Charlton to prevent legacy 852 fields from being exported...

From https://bugs.launchpad.net/evergreen/+bug/528424

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15661 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 4374b66..623b34d 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -232,6 +232,7 @@ sub handler {
 
 
                        if ($holdings) {
+                               $req->delete_field( $_ ) for ($req->field('852')); # remove any legacy 852s
                                my $cn_list = $bib->call_numbers;
                                if ($cn_list && @$cn_list) {
 

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index f428b69..736a943 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -1740,6 +1740,7 @@ sub sru_search {
                                                MARC::Field->new( '001', $record->id )
                                        );
                                }
+                               $marc->delete_field($_) for ($marc->field('852')); # remove any legacy 852s
                                foreach my $cn (keys %$bib_holdings) {
                                        foreach my $cp (@{$bib_holdings->{$cn}->{'copies'}}) {
                                                $marc->insert_fields_ordered(