# uninitialized $EXMARC
if ($FH eq '') {
+ $EXMARC = undef;
open $EXMARC, '>:utf8', $conf->{exception};
$FH = $EXMARC;
}
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};