fingerprinter: removed --incoming and --incumbent. now only one set of defaults....

[migration-tools.git] / marc-cleanup

diff --git a/marc-cleanup b/marc-cleanup
index e4f29d7..e298bda 100755 (executable)
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -273,6 +273,7 @@ sub write_record {
 
     # uninitialized $EXMARC
     if ($FH eq '') {
+        $EXMARC = undef;
         open $EXMARC, '>:utf8', $conf->{exception};
         $FH = $EXMARC;
     }
@@ -321,8 +322,14 @@ sub write_record {
       { s/\n// for (@record) }
 
     # write to old->new map file if needed
-    print $OLD2NEW $recmeta{oid}, "\t", $recmeta{nid}, "\n"
-      if ($conf->{'renumber-from'} and $conf->{'original-subfield'});
+    if ($conf->{'renumber-from'} and $conf->{'original-subfield'}) {
+        unless (defined $recmeta{oid}) {
+            my $msg = join(' ', "No old id num found");
+            dump_record($msg);
+        } else {
+            print $OLD2NEW $recmeta{oid}, "\t", $recmeta{nid}, "\n"
+        }
+    }
 
     # and finally, actually write the record
     print $FH @record,"\n";
@@ -333,6 +340,7 @@ sub print_fullcontext {
     print $OUT $conf->{editmsg},"\n";
     print $OUT "\r    Tag:",$recmeta{tag}, " Ind1:'",
       $recmeta{ind1},"' Ind2:'", $recmeta{ind2}, "'";
+    print $OUT " @ ", $conf->{ricount}, "/", $conf->{rocount} + 1,"\n";
     print_context();
     return 0;
 }
@@ -436,6 +444,12 @@ sub yank_line {
     return 0;
 }
 
+sub insert_original {
+    $record[$ptr] = $recmeta{origline};
+    print_context();
+    return 0;
+}
+
 sub display_lines {
     print $OUT "\nOrig. edit line  :", $recmeta{origline};
     print $OUT "Current flip line:", $recmeta{prevline} if $recmeta{prevline};