From 34990394b1c7c4d41272e5830b90e7bad1239ac5 Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Wed, 25 Nov 2009 14:27:04 +0000
Subject: [PATCH 1/1] fix regex for extracting bib ID from input

---
 extract_loadset |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

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};
 }
 
-- 
1.7.2.5