From cceae1786e6096ccff9a8bdde86e268f5c66edca Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 9 Dec 2008 22:51:48 +0000
Subject: [PATCH] marc-cleanup: exception file never has collapsed records now
 buildrecord no longer starts each record with '<record><record>'

---
 marc-cleanup |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

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
-- 
1.7.2.5