From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 9 Mar 2010 11:50:08 +0000 (+0000)
Subject: Backport r15661 from trunk: Apply patch from Galen Charlton to prevent legacy 852... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=79af515ab2501e40b18f3119a2517685bf8a61a6;p=working%2FEvergreen.git

Backport r15661 from trunk: Apply patch from Galen Charlton to prevent legacy 852 fields from being exported during bib+holdings export
From https://bugs.launchpad.net/evergreen/+bug/528424


git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_6@15753 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 4374b66d04..623b34d9cd 100644
--- 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 184531cb4b..d24502346c 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -1684,6 +1684,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(