$batch->strict_off();
$batch->warnings_off();
- while ( $record = $batch->next ) {
+ my $record;
+ while ( 1 ) {
+ eval { $record = $batch->next; };
+ if ($@) {
+ import MARC::File::XML;
+ print "bad record\n";
+ next;
+ }
+ last unless $record;
$count++; progress_ticker();
my $marc = undef;
unless ( defined $record )
}
# subfields can't be non-alphanumeric
- if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
- if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
- edit("Junk in subfield code/Null subfield code");
- next;
- }
- }
+ #if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
+ #if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
+ #edit("Junk in subfield code/Null subfield code");
+ #next;
+ #}
+ #}
# subfields can't be non-alphanumeric
if ($record[$ptr] =~ /<subfield code="(\w{2,})"/) {
edit("Subfield code larger than 1 char");