From 7ae3de7121e75afa645381a866304d8f3b75a3ea Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 1 Apr 2009 17:00:37 +0000
Subject: [PATCH] finally fixed that nagging old2new problem

---
 marc_cleanup |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/marc_cleanup b/marc_cleanup
index 9bc7b96..57c5826 100755
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -8,9 +8,10 @@ use Getopt::Long;
 use Term::ReadLine;
 use Equinox::Migration::SimpleTagList;
 
-binmode STDOUT, ":utf8";
 my $term = new Term::ReadLine 'yaz-cleanup';
 my $OUT = $term->OUT || \*STDOUT;
+binmode STDOUT, ":utf8";
+binmode $OUT, ":utf8";
 
 $| = 1;
 
@@ -214,7 +215,8 @@ sub stow_record_data {
             my $osub = $conf->{'original-subfield'};
             $recmeta{oid} = 'NONE';
 
-            until ($line =~ m|</record>|) {
+            # skim to end of this tag
+            until ($line =~ m|</datafield>|) {
                 if ($line =~ /<subfield code="$osub">(.+?)</)
                   { $recmeta{oid} = $1 }
                 $lptr++;
-- 
1.7.2.5