From 9656cdee86e905dacde38aff36fe53c344e4d12f Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Fri, 5 Dec 2008 17:10:19 +0000
Subject: [PATCH] forgot to implement insert_original (oops)

---
 marc-cleanup |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index 0a88756..e298bda 100755
--- 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};
-- 
1.7.2.5