Lines 1-20
Link Here
|
1 |
diff a/C4/Biblio.pm b/C4/Biblio.pm (rejected hunks) |
|
|
2 |
@@ -461,7 +462,7 @@ sub BiblioAutoLink { |
3 |
|
4 |
=head2 LinkBibHeadingsToAuthorities |
5 |
|
6 |
- my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $verbose]); |
7 |
+ my $num_headings_changed, %results = LinkBibHeadingsToAuthorities($linker, $marc, $frameworkcode, [$allowrelink, $verbose, $dont_auto_create]); |
8 |
|
9 |
Links bib headings to authority records by checking |
10 |
each authority-controlled field in the C<MARC::Record> |
11 |
@@ -484,7 +485,9 @@ sub LinkBibHeadingsToAuthorities { |
12 |
my $frameworkcode = shift; |
13 |
my $allowrelink = shift; |
14 |
my $verbose = shift; |
15 |
+ my $dont_auto_create = shift; |
16 |
my %results; |
17 |
+ my $linker_default=C4::Linker::Default->new(); |
18 |
if (!$bib) { |
19 |
carp 'LinkBibHeadingsToAuthorities called on undefined bib record'; |
20 |
return ( 0, {}); |