open MARC, '<', $input;
open my $NUMARC, '>', 'incoming.clean.marc.xml';
print $NUMARC '<?xml version="1.0" encoding="UTF-8"?>',"\n";
+print $NUMARC '<collection xmlns="http://www.loc.gov/MARC21/slim">',"\n";
+
open my $EXMARC, '>', 'incoming.exceptions.marc.xml';
print $EXMARC '<?xml version="1.0" encoding="UTF-8"?>',"\n";
+print $EXMARC '<collection xmlns="http://www.loc.gov/MARC21/slim">',"\n";
open MARC2, '<', $input;
<MARC2>;
}
}
-print $NUMARC "</xml>\n";
-print $EXMARC "</xml>\n";
+print $NUMARC "</collection>\n";
+print $EXMARC "</collection>\n";
print $OUT "\nDone. \n";
=head2 edit
sub write_record {
my ($FH) = @_;
- print $FH '<collection xmlns="http://www.loc.gov/MARC21/slim">',"\n";
print $FH '<!-- ', $reccontext{explanation}, " -->\n"
if(defined $reccontext{explanation});
print $FH @record;
- print $FH "</collection>\n";
}
sub update_linecontext {