|
Lines 201-207
sub process_bib {
Link Here
|
| 201 |
my $tagtolink = $args->{tagtolink}; |
201 |
my $tagtolink = $args->{tagtolink}; |
| 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 = $biblio->metadata->record; |
204 |
my $record; |
|
|
205 |
eval{ $record = $biblio->metadata->record; }; |
| 205 |
unless ( defined $record ) { |
206 |
unless ( defined $record ) { |
| 206 |
print |
207 |
print |
| 207 |
"\nCould not retrieve bib $biblionumber from the database - record is corrupt.\n"; |
208 |
"\nCould not retrieve bib $biblionumber from the database - record is corrupt.\n"; |
| 208 |
- |
|
|