View | Details | Raw Unified | Return to bug 13082
Collapse All | Expand All

(-)a/tools/export.pl (-4 / +2 lines)
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
- 

Return to bug 13082