projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
a9f07e4
)
forgot to implement insert_original (oops)
author
Shawn Boyette
<sboyette@esilibrary.com>
Fri, 5 Dec 2008 17:10:19 +0000 (17:10 +0000)
committer
Shawn Boyette
<sboyette@esilibrary.com>
Fri, 5 Dec 2008 17:10:19 +0000 (17:10 +0000)
marc-cleanup
patch
|
blob
|
history
diff --git
a/marc-cleanup
b/marc-cleanup
index
0a88756
..
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;
}
@@
-443,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};