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 |
- |
|
|