filter-incoming sends NO-MATCH to import file; MATCH to shelve file

diff --git a/miker-filter_incoming.pl b/miker-filter_incoming.pl
index 030c02a..3adb8aa 100644 (file)
--- a/miker-filter_incoming.pl
+++ b/miker-filter_incoming.pl
@@ -3,13 +3,13 @@ use warnings;
 use strict;
 
 use Getopt::Long;
-#use Time::HiRes qw/time/;
-#use MARC::Record;
-#use MARC::File::XML ( BinaryEncoding => 'utf-8' );
+use Time::HiRes qw/time/;
+use MARC::Record;
+use MARC::File::XML ( BinaryEncoding => 'utf-8' );
 
 # configuration hashref
 my $conf  = ();
-initialize($conf);
+#initialize($conf);
 
 my $idfile = shift;
 my $marcfile = shift;
@@ -26,7 +26,7 @@ while (<F>) {
 
 close F;
 
-my $M;
+my $M; my $I; my $S;
 open $M, '<:utf8', $marcfile;
 open $I, '>:utf8', $import;
 open $S, '>:utf8', $shelve;
@@ -38,10 +38,10 @@ my $scount = 0;
 while (<$M>) {
     /tag="903" ind1=" " ind2=" ">.*?<subfield code="a">(\d+)</;
     if ( $id{$1} ) {
-        print $I $_;
+        print $S $_;
         $icount++;
     } else {
-        print $S $_;
+        print $I $_;
         $scount++;
     }
     $count++;