From a472992cfe41d659f1322e924da9eeeaeb14d6c2 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 6 Oct 2008 18:27:54 +0000
Subject: [PATCH] record terminal now output by write_record instead of actually being part of record. this allows 903s to be inserted for renumbering

---
 marc-cleanup |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/marc-cleanup b/marc-cleanup
index 40faecb..e1ad84b 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -184,7 +184,6 @@ sub getline {
             %recmeta = ();
             $reccount++;
         } elsif ($l =~ m|</record>|) {
-            push @record, $l;
             write_record($NUMARC) if $reccount;
         } else {
             push @record, $l;
@@ -199,7 +198,7 @@ sub write_record {
     print $FH '<!-- ', $recmeta{explanation}, " -->\n"
       if(defined $recmeta{explanation});
 
-    # LOOP OVER %trash KEYS GOES HERE TO EXCISE UNWANTED TAGS1
+    # LOOP OVER %trash TO EXCISE UNWANTED TAGS1
     if (keys %trash) {
         my @trimmed = ();
         my $istrash = 0;
@@ -220,6 +219,7 @@ sub write_record {
         @record = @trimmed;
     }
     print $FH @record;
+    print $FH '</record>\n';
 }
 
 sub update_linecontext {
-- 
1.7.2.5