From 9cef8854008ffd637c7c25560a3173b28046703d Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 29 Aug 2006 02:45:54 +0000 Subject: [PATCH] removing dup stripping .... it is a unicorn problem git-svn-id: svn://svn.open-ils.org/ILS/trunk@5751 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/extras/import/marc2bre.pl | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/Open-ILS/src/extras/import/marc2bre.pl b/Open-ILS/src/extras/import/marc2bre.pl index 579cc1cd65..1d0c2f9e7e 100755 --- a/Open-ILS/src/extras/import/marc2bre.pl +++ b/Open-ILS/src/extras/import/marc2bre.pl @@ -58,7 +58,7 @@ my %source_map = ( OpenSRF::System->bootstrap_client( config_file => $config ); Fieldmapper->import(IDL => OpenSRF::Utils::SettingsClient->new->config_value("IDL")); -$user = OpenILS::Application::AppUtils->check_user_session( login($user,$password) )->id; +#$user = OpenILS::Application::AppUtils->check_user_session( login($user,$password) )->id; my %keymap; if ($keyfile) { @@ -77,8 +77,6 @@ my $batch = new MARC::Batch ( 'USMARC', @files ); $batch->strict_off(); $batch->warnings_off(); -my %seen; - my $starttime = time; my $rec; while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) { @@ -122,9 +120,6 @@ while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) { my $tcn_value = $rec->subfield('901' => 'a'); my $tcn_source = $rec->subfield('901' => 'b'); - next if ($seen{$tcn_value}); - $seen{$tcn_value} = 1; - (my $xml = $rec->as_xml_record()) =~ s/\n//sog; $xml =~ s/^<\?xml.+\?\s*>//go; $xml =~ s/>\s+