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

(-)a/tools/export.pl (-1 / +5 lines)
Lines 394-399 if ( $op eq "export" ) { Link Here
394
                    print "\n";
394
                    print "\n";
395
                }
395
                }
396
                else {
396
                else {
397
                    my (@result_build_tag) = MARC::File::USMARC::_build_tag_directory($record);
398
                    if ($result_build_tag[2] > 99999) {
399
                        warn "record (number $recordid) length ".$result_build_tag[2]." is larger than the MARC spec allows (99999 bytes)";
400
                        next;
401
                    }
397
                    print $record->as_usmarc();
402
                    print $record->as_usmarc();
398
                }
403
                }
399
            }
404
            }
400
- 

Return to bug 12229