|
Lines 211-218
sub process_bib {
Link Here
|
| 211 |
|
211 |
|
| 212 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
212 |
my $frameworkcode = GetFrameworkCode($biblionumber); |
| 213 |
|
213 |
|
| 214 |
my ( $headings_changed, $results ) = |
214 |
my ( $headings_changed, $results ); |
| 215 |
LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, $allowrelink, $tagtolink ); |
215 |
|
|
|
216 |
eval { |
| 217 |
( $headings_changed, $results ) = |
| 218 |
LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, $allowrelink, $tagtolink ); |
| 219 |
}; |
| 220 |
if ($@) { |
| 221 |
warn "Error while searching for authorities for biblionumber $biblionumber at " . localtime(time); |
| 222 |
return; |
| 223 |
} |
| 224 |
|
| 216 |
foreach my $key ( keys %{ $results->{'unlinked'} } ) { |
225 |
foreach my $key ( keys %{ $results->{'unlinked'} } ) { |
| 217 |
$unlinked_headings{$key} += $results->{'unlinked'}->{$key}; |
226 |
$unlinked_headings{$key} += $results->{'unlinked'}->{$key}; |
| 218 |
} |
227 |
} |
| 219 |
- |
|
|