From: Shawn Boyette <sboyette@esilibrary.com>
Date: Fri, 19 Dec 2008 17:53:57 +0000 (+0000)
Subject: stow_record_data uses named captures now instead of oldstyle automagic capture vars... 
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=244a63ab87c7157eec70d3452addd0e2c0fe7c81

stow_record_data uses named captures now instead of oldstyle automagic capture vars -- this caused breakage in old2new mapping under cretain conditions
---

diff --git a/marc-cleanup b/marc-cleanup
index 3680815..f40babb 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -181,13 +181,12 @@ sub do_automated_cleanups {
 sub stow_record_data {
     # get tag data if we're looking at it
     
-    if ($record[$ptr] =~ m/<datafield tag="(.{3})"/) {
-        $recmeta{tag} = '';
-        $recmeta{tag} = $1;
-        $record[$ptr] =~ m/ind1="(.)"/;
-        $recmeta{ind1} = $1 || '';
-        $record[$ptr] =~ m/ind2="(.)"/;
-        $recmeta{ind2} = $1 || '';
+    if ($record[$ptr] =~ m/<datafield tag="(?<TAG>.{3})"/) {
+        $recmeta{tag} = $+{TAG};
+        $record[$ptr] =~ m/ind1="(?<IND1>.)"/;
+        $recmeta{ind1} = $+{IND1} || '';
+        $record[$ptr] =~ m/ind2="(?<IND2>.)"/;
+        $recmeta{ind2} = $+{IND2} || '';
         
         unless (defined $recmeta{tag}) {
             message("Autokill record: no detectable tag");
@@ -204,7 +203,7 @@ sub stow_record_data {
             until ($line =~ m|</record>|) {
                 $lptr++;
                 $line = $record[$lptr];
-                $recmeta{oid} = $1
+                $recmeta{oid} = $+{TAG}
                   if ($line =~ /<subfield code="$osub">(.+?)</);
             }
         }