|
Lines 202-211
sub process_bib {
Link Here
|
| 202 |
my $allowrelink = $args->{allowrelink}; |
202 |
my $allowrelink = $args->{allowrelink}; |
| 203 |
my $biblio = Koha::Biblios->find($biblionumber); |
203 |
my $biblio = Koha::Biblios->find($biblionumber); |
| 204 |
my $record; |
204 |
my $record; |
| 205 |
eval{ $record = $biblio->metadata->record; }; |
205 |
eval { $record = $biblio->metadata->record; }; |
| 206 |
unless ( defined $record ) { |
206 |
unless ( defined $record ) { |
| 207 |
print |
207 |
warn "Could not retrieve bib $biblionumber from the database - record is corrupt."; |
| 208 |
"\nCould not retrieve bib $biblionumber from the database - record is corrupt.\n"; |
|
|
| 209 |
$num_bad_bibs++; |
208 |
$num_bad_bibs++; |
| 210 |
return; |
209 |
return; |
| 211 |
} |
210 |
} |
|
Lines 220-225
sub process_bib {
Link Here
|
| 220 |
}; |
219 |
}; |
| 221 |
if ($@) { |
220 |
if ($@) { |
| 222 |
warn "Error while searching for authorities for biblionumber $biblionumber at " . localtime(time); |
221 |
warn "Error while searching for authorities for biblionumber $biblionumber at " . localtime(time); |
|
|
222 |
$num_bad_bibs++; |
| 223 |
return; |
223 |
return; |
| 224 |
} |
224 |
} |
| 225 |
|
225 |
|
| 226 |
- |
|
|