From c3044cb3d598ceac0155cf10075dc7815c0efc65 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 7 Oct 2008 17:57:56 +0000
Subject: [PATCH] renumbering should be pushed, not printed
 newlines should be interpolated :D

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

diff --git a/marc-cleanup b/marc-cleanup
index 8b139b2..41aff58 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -230,16 +230,18 @@ sub write_record {
     }
 
     # add 903(?) with new record id
+    my $renumber = '';
     if ($conf->{'renumber-from'}) {
-        print $FH '<datafield tag="', $conf->{'renumber-tag'}, '">',
-          '<subfield code="', $conf->{'renumber-subfield'}, '">',
-          $conf->{'renumber-from'}, '</subfield></datafield>';
-        print $FH "\n" unless $conf->{oneperline};
+        $renumber = join('', '<datafield tag="', $conf->{'renumber-tag'}, '">',
+                         '<subfield code="', $conf->{'renumber-subfield'}, '">',
+                         $conf->{'renumber-from'}, '</subfield></datafield>');
+        $renumber .= "\n" unless $conf->{nocollapse};
+        push @record, $renumber;
         $conf->{'renumber-from'}++;
     }
 
     print $FH @record;
-    print $FH '</record>\n';
+    print $FH "</record>\n";
 }
 
 sub update_linecontext {
-- 
1.7.2.5