From 78a0aad6638832b2a7a2aff26a7dbef7b63013c5 Mon Sep 17 00:00:00 2001
From: Jason Etheridge <jason@esilibrary.com>
Date: Wed, 24 Sep 2008 12:58:23 +0000
Subject: [PATCH] wrong subfield

---
 miker-filter_incumbents.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

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