|
Lines 416-424
if ( $op eq "export" ) {
Link Here
|
| 416 |
print "\n"; |
416 |
print "\n"; |
| 417 |
} |
417 |
} |
| 418 |
else { |
418 |
else { |
| 419 |
my (@result_build_tag) = MARC::File::USMARC::_build_tag_directory($record); |
419 |
my $errorcount_on_decode = eval { scalar(MARC::File::USMARC->decode( $record->as_usmarc )->warnings()) }; |
| 420 |
if ($result_build_tag[2] > 99999) { |
420 |
if ($errorcount_on_decode or $@){ |
| 421 |
warn "record (number $recordid) length ".$result_build_tag[2]." is larger than the MARC spec allows (99999 bytes)"; |
421 |
warn $@ if $@; |
|
|
422 |
warn "record (number $recordid) is invalid and therefore not exported because its reopening generates warnings above"; |
| 422 |
next; |
423 |
next; |
| 423 |
} |
424 |
} |
| 424 |
print $record->as_usmarc(); |
425 |
print $record->as_usmarc(); |
| 425 |
- |
|
|