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 dump_record {
+ my ($line_in, @explanation) = @_;
+ $reccontext{explanation} = join(' ', @explanation);
my $line = <MARC>; $count++;
update_linecontext();
until ($line =~ m|</record>|) {