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

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

Return to bug 13082