|
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, {}); |