removing dup stripping .... it is a unicorn problem
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 29 Aug 2006 02:45:54 +0000 (02:45 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 29 Aug 2006 02:45:54 +0000 (02:45 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5751 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/extras/import/marc2bre.pl

index 579cc1c..1d0c2f9 100755 (executable)
@@ -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+</></go;