buildrecord no longer starts each record with '<record><record>'
my $l = '';
$l = <MARC> while (defined $l and $l !~ /<record>/);
return $l unless defined $l;
- @record = ($l);
+ @record = ();
%recmeta = ();
$conf->{ricount}++;
$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