From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 1 Apr 2009 17:00:37 +0000 (+0000)
Subject: finally fixed that nagging old2new problem
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=7ae3de7121e75afa645381a866304d8f3b75a3ea

finally fixed that nagging old2new problem
---

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++;