From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 1 Dec 2008 14:18:53 +0000 (+0000)
Subject: stow_record_data now called from sane place
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=9e8afbbf5e2abff738f32f4ec848af6470f396f6

stow_record_data now called from sane place
---

diff --git a/marc-cleanup b/marc-cleanup
index 641c4bf..02c776e 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -61,7 +61,6 @@ while ( buildrecord() ) {
     }
 
     do_automated_cleanups();
-    stow_record_data();
 
     $ptr = 0;
     until ($ptr == $#record) {
@@ -109,6 +108,9 @@ print $OUT "\nDone.               \n";
 sub do_automated_cleanups {
     $ptr = 0;
     until ($ptr == $#record) {
+        # get datafield/tag data if we have it
+        stow_record_data();
+
         # catch empty datafield elements
         if ($record[$ptr] =~ m/<datafield tag="..." ind1="." ind2=".">/) {
             if ($record[$ptr + 1] =~ m|</datafield>|) {