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