From 9e8afbbf5e2abff738f32f4ec848af6470f396f6 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 1 Dec 2008 14:18:53 +0000
Subject: [PATCH] stow_record_data now called from sane place

---
 marc-cleanup |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

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>|) {
-- 
1.7.2.5