seems to be working now

[migration-tools.git] / miker-filter_incoming.pl

diff --git a/miker-filter_incoming.pl b/miker-filter_incoming.pl
index 3adb8aa..99c6171 100644 (file)
--- a/miker-filter_incoming.pl
+++ b/miker-filter_incoming.pl
@@ -7,6 +7,8 @@ use Time::HiRes qw/time/;
 use MARC::Record;
 use MARC::File::XML ( BinaryEncoding => 'utf-8' );
 
+# THIS FILE EXTRACTS NONMATCHING RECORDS
+
 # configuration hashref
 my $conf  = ();
 #initialize($conf);
@@ -39,10 +41,10 @@ while (<$M>) {
     /tag="903" ind1=" " ind2=" ">.*?<subfield code="a">(\d+)</;
     if ( $id{$1} ) {
         print $S $_;
-        $icount++;
+        $scount++;
     } else {
         print $I $_;
-        $scount++;
+        $icount++;
     }
     $count++;