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 |
if (scalar(MARC::File::USMARC->decode( $record->as_usmarc )->warnings())){ |
420 |
if ($result_build_tag[2] > 99999) { |
420 |
warn "record (number $recordid) is invalid and therefore not exported because its reopening generates warnings above"; |
421 |
warn "record (number $recordid) length ".$result_build_tag[2]." is larger than the MARC spec allows (99999 bytes)"; |
|
|
422 |
next; |
421 |
next; |
423 |
} |
422 |
} |
424 |
print $record->as_usmarc(); |
423 |
print $record->as_usmarc(); |
425 |
- |
|
|