until ($ptr == $#record) {
# get datafield/tag data if we have it
$rc = stow_record_data() if ($c->{'renumber-from'} and $c->{'original-tag'});
- return $rc if $rc;
+ next if $rc;
# naked ampersands
if ($record[$ptr] =~ /&/ && $record[$ptr] !~ /&\w+?;/)
my $istrash = 0;
my $trash = $c->{trash};
- $l = <MARC> while (defined $l and $l !~ /<record>/);
+ $l = <MARC> while (defined $l and $l !~ /<record/);
return $l unless defined $l;
$c->{ricount}++;