Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 30024: Make link_bibs_to_authorities.pl rely on LinkerRelink

Browse source 
This patch makes the trivial change of making the linker script rely on
LinkerRelink instead of CatalogModuleRelink, which is confusing and
incorrect (according to both sysprefs descriptions).

To test:
1. Verify that relinking is now tied to the right syspref

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Phil Ringnalda <phil@chetcolibrary.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Tomás Cohen Arazi 2022-09-27 16:10:51 -03:00
parent d3df141a0b
commit 4310e13a64
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
misc/link_bibs_to_authorities.pl
View file

@ -1,7 +1,21 @@
#!/usr/bin/perl #!/usr/bin/perl
use strict; # This file is part of Koha.
use warnings; #
# 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.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Koha::Script; use Koha::Script;
use C4::Context; use C4::Context;
@ -37,7 +51,7 @@ my $auth_limit;
my $bib_limit; my $bib_limit;
my $commit = 100; my $commit = 100;
my $tagtolink; my $tagtolink;
my $allowrelink = C4::Context->preference("CatalogModuleRelink") || ''; my $allowrelink = C4::Context->preference("LinkerRelink") // '';
my $result = GetOptions( my $result = GetOptions(
'v|verbose' => \$verbose, 'v|verbose' => \$verbose,