Lines 518-531
sub BiblioAutoLink {
Link Here
|
518 |
my $linker = $linker_module->new( |
518 |
my $linker = $linker_module->new( |
519 |
{ 'options' => C4::Context->preference("LinkerOptions") } ); |
519 |
{ 'options' => C4::Context->preference("LinkerOptions") } ); |
520 |
my ( $headings_changed, $results ) = |
520 |
my ( $headings_changed, $results ) = |
521 |
LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, C4::Context->preference("CatalogModuleRelink") || '', $verbose ); |
521 |
LinkBibHeadingsToAuthorities( $linker, $record, $frameworkcode, C4::Context->preference("CatalogModuleRelink") || '', undef, $verbose ); |
522 |
# By default we probably don't want to relink things when cataloging |
522 |
# By default we probably don't want to relink things when cataloging |
523 |
return $headings_changed, $results; |
523 |
return $headings_changed, $results; |
524 |
} |
524 |
} |
525 |
|
525 |
|
526 |
=head2 LinkBibHeadingsToAuthorities |
526 |
=head2 LinkBibHeadingsToAuthorities |
527 |
|
527 |
|
528 |
my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $verbose]); |
528 |
my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $tagtolink, $verbose]); |
529 |
|
529 |
|
530 |
Links bib headings to authority records by checking |
530 |
Links bib headings to authority records by checking |
531 |
each authority-controlled field in the C<MARC::Record> |
531 |
each authority-controlled field in the C<MARC::Record> |