X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=marc_cleanup;h=57c58266db57afdfe0a400b17f50cb439ed08daf;hp=9bc7b9665141243032517de37a724a6992fcc47b;hb=7ae3de7121e75afa645381a866304d8f3b75a3ea;hpb=d38aa4231d42f1231c6538b545a4b5405df86c22

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