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

(-)a/misc/batchRebuildItemsTables.pl (-2 lines)
Lines 70-76 while ( my ( $biblionumber, $biblioitemnumber, $frameworkcode ) = $sth->fetchrow Link Here
70
    my $record = GetMarcBiblio($biblionumber,1);
70
    my $record = GetMarcBiblio($biblionumber,1);
71
    unless ($record){ push @errors, "bad record biblionumber $biblionumber"; next; }
71
    unless ($record){ push @errors, "bad record biblionumber $biblionumber"; next; }
72
    my ($tmptestfields,$tmptestdirectory,$reclen,$tmptestbaseaddress) = MARC::File::USMARC::_build_tag_directory($record);
72
    my ($tmptestfields,$tmptestdirectory,$reclen,$tmptestbaseaddress) = MARC::File::USMARC::_build_tag_directory($record);
73
    if ($reclen > 99999) { push @errors,  "bad record length for biblionumber $biblionumber (length : $reclen) "; next; }
74
    #print "\n################################ record before ##################################\n".$record->as_formatted;#!test
73
    #print "\n################################ record before ##################################\n".$record->as_formatted;#!test
75
    unless ($test_parameter) {
74
    unless ($test_parameter) {
76
        my $rqitemnumber=$dbh->prepare("SELECT itemnumber, biblionumber from items where itemnumber = ? and biblionumber = ?");
75
        my $rqitemnumber=$dbh->prepare("SELECT itemnumber, biblionumber from items where itemnumber = ? and biblionumber = ?");
77
- 

Return to bug 14858