Lines 454-467
sub BiblioAutoLink {
Link Here
|
454 |
my $linker = $linker_module->new( |
454 |
my $linker = $linker_module->new( |
455 |
{ 'options' => C4::Context->preference("LinkerOptions") } ); |
455 |
{ 'options' => C4::Context->preference("LinkerOptions") } ); |
456 |
my ( $headings_changed, $results ) = |
456 |
my ( $headings_changed, $results ) = |
457 |
LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, C4::Context->preference("CatalogModuleRelink") || '', $verbose ); |
457 |
LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, C4::Context->preference("CatalogModuleRelink") || '', undef, $verbose ); |
458 |
# By default we probably don't want to relink things when cataloging |
458 |
# By default we probably don't want to relink things when cataloging |
459 |
return $headings_changed, $results; |
459 |
return $headings_changed, $results; |
460 |
} |
460 |
} |
461 |
|
461 |
|
462 |
=head2 LinkBibHeadingsToAuthorities |
462 |
=head2 LinkBibHeadingsToAuthorities |
463 |
|
463 |
|
464 |
my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $verbose]); |
464 |
my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $tagtolink, $verbose]); |
465 |
|
465 |
|
466 |
Links bib headings to authority records by checking |
466 |
Links bib headings to authority records by checking |
467 |
each authority-controlled field in the C<MARC::Record> |
467 |
each authority-controlled field in the C<MARC::Record> |