From: Jason Etheridge <jason@esilibrary.com>
Date: Wed, 24 Sep 2008 12:56:22 +0000 (+0000)
Subject: wrong subfield
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=2124d89f6e541a6fd5fc5c1b7b1fa7f544ec7c22

wrong subfield
---

diff --git a/miker-filter_incoming.pl b/miker-filter_incoming.pl
index 203d525..030c02a 100644
--- a/miker-filter_incoming.pl
+++ b/miker-filter_incoming.pl
@@ -36,7 +36,7 @@ my $count = 0;
 my $icount = 0;
 my $scount = 0;
 while (<$M>) {
-    /tag="903" ind1=" " ind2=" ">.*?<subfield code="c">(\d+)</;
+    /tag="903" ind1=" " ind2=" ">.*?<subfield code="a">(\d+)</;
     if ( $id{$1} ) {
         print $I $_;
         $icount++;