From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 9 Dec 2008 22:51:48 +0000 (+0000)
Subject: marc-cleanup: exception file never has collapsed records now
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=cceae1786e6096ccff9a8bdde86e268f5c66edca

marc-cleanup: exception file never has collapsed records now
buildrecord no longer starts each record with '<record><record>'
---

diff --git a/marc-cleanup b/marc-cleanup
index b90ff48..8003ad1 100755
--- a/marc-cleanup
+++ b/marc-cleanup
@@ -263,7 +263,7 @@ sub buildrecord {
     my $l = '';
     $l = <MARC> while (defined $l and $l !~ /<record>/);
     return $l unless defined $l;
-    @record = ($l);
+    @record = ();
     %recmeta = ();
     $conf->{ricount}++;
 
@@ -323,8 +323,8 @@ sub write_record {
         $conf->{'renumber-from'}++;
     }
 
-    # scrub newlines
-    unless ($conf->{nocollapse})
+    # scrub newlines (unless told not to or writing exception record)
+    unless ($conf->{nocollapse} or $FH eq $EXMARC)
       { s/\n// for (@record) }
 
     # write to old->new map file if needed