|
Lines 69-75
while ( my ( $biblionumber, $biblioitemnumber, $frameworkcode ) = $sth->fetchrow
Link Here
|
| 69 |
$count++; |
69 |
$count++; |
| 70 |
warn $count unless $count % 1000; |
70 |
warn $count unless $count % 1000; |
| 71 |
my $record = GetMarcBiblio({ |
71 |
my $record = GetMarcBiblio({ |
| 72 |
biblionummber => $biblionumber, |
72 |
biblionumber => $biblionumber, |
| 73 |
embed_items => 1 }); |
73 |
embed_items => 1 }); |
| 74 |
unless ($record) { push @errors, "bad record biblionumber $biblionumber"; next; } |
74 |
unless ($record) { push @errors, "bad record biblionumber $biblionumber"; next; } |
| 75 |
|
75 |
|
| 76 |
- |
|
|