@@ -, +, @@ --- C4/Biblio.pm | 1 + svc/cataloguing/automatic_linker.pl | 20 ++++++++++---------- t/Biblio.t | 1 - t/db_dependent/Biblio.t | 8 ++++---- 4 files changed, 15 insertions(+), 15 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -492,6 +492,7 @@ sub LinkBibHeadingsToAuthorities { } require C4::Heading; require C4::AuthoritiesMarc; + $allowrelink = 1 unless defined $allowrelink; my $num_headings_changed = 0; foreach my $field ( $bib->fields() ) { --- a/svc/cataloguing/automatic_linker.pl +++ a/svc/cataloguing/automatic_linker.pl @@ -4,18 +4,18 @@ # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 3 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along -# with Koha; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . use Modern::Perl; use CGI; --- a/t/Biblio.t +++ a/t/Biblio.t @@ -157,4 +157,3 @@ warnings_like { $ret = UpdateTotalIssues() } "UpdateTotalIssues returns carped warnings if biblio record does not exist"; ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist'); -1; --- a/t/db_dependent/Biblio.t +++ a/t/db_dependent/Biblio.t @@ -740,13 +740,13 @@ subtest "LinkBibHeadingsToAuthorities record generation tests" => sub { ); #Add test for this case using verbose - my ( $num_headings_changed, $results ) = LinkBibHeadingsToAuthorities($linker, $record, "",undef, 1); + ( $num_headings_changed, $results ) = LinkBibHeadingsToAuthorities($linker, $record, "",undef, 1); my $details = $results->{details}; is( $num_headings_changed, 1, 'We changed the one we passed' ); is( $results->{details}->[0]->{status}, 'CREATED', "We added an authority record for the heading using verbose"); # Now we check the authority record itself - my $authority = GetAuthority($results->{details}->[0]->{authid}); + $authority = GetAuthority($results->{details}->[0]->{authid}); is( $authority->field('150')->as_string(), "Beach city Weirdness Fiction Books 21st Century Fish Stew Pizza", @@ -773,13 +773,13 @@ subtest "LinkBibHeadingsToAuthorities record generation tests" => sub { "The generated record contains the correct subfields" ); - # The same exemple With verbose + # The same example With verbose ( $num_headings_changed, $results ) = LinkBibHeadingsToAuthorities($linker, $record, "",undef, 1); is( $num_headings_changed, 1, 'We changed the one we passed' ); is( $results->{details}->[0]->{status}, 'CREATED', "We added an authority record for the heading using verbose"); # Now we check the authority record itself - my $authority = GetAuthority($results->{details}->[0]->{authid}); + $authority = GetAuthority($results->{details}->[0]->{authid}); is( $authority->field('100')->as_string(), "Tolkien, J. R. R. (John Ronald Reuel), 1892-1973. Lord of the rings", "The generated record contains the correct subfields" --