No subject

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2010-03-09 11:49:02 UTC (rev 15752)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2010-03-09 11:50:08 UTC (rev 15753)
@@ -232,6 +232,7 @@
 
 
 			if ($holdings) {
+				$req->delete_field( $_ ) for ($req->field('852')); # remove any legacy 852s
         			my $cn_list = $bib->call_numbers;
         			if ($cn_list && @$cn_list) {
 

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-03-09 11:49:02 UTC (rev 15752)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-03-09 11:50:08 UTC (rev 15753)
@@ -1684,6 +1684,7 @@
 						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(