From: Galen Charlton <gmc@esilibrary.com>
Date: Wed, 25 Nov 2009 14:27:04 +0000 (+0000)
Subject: fix regex for extracting bib ID from input
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=34990394b1c7c4d41272e5830b90e7bad1239ac5

fix regex for extracting bib ID from input
---

diff --git a/extract_loadset b/extract_loadset
index 9b116cc..d326fcd 100755
--- a/extract_loadset
+++ b/extract_loadset
@@ -23,7 +23,7 @@ close FP;
 open MI, '<', $conf->{input} or die "Can't open input file: $!\n";
 open MO, '>', $conf->{output} or die "Can't open output file: $!\n";
 while (<MI>) {
-    m/tag="$conf->{tag}",+?<subfield code="$conf->{subfield}">(\d+)</;
+    m/tag="$conf->{tag}".+?<subfield code="$conf->{subfield}">(\d+)</;
     print MO unless $exclude{$1};
 }