From f1d6f15b1502ac0acd55d824acd25c6a28005c8c Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 27 Sep 2022 16:10:51 -0300 Subject: [PATCH] Bug 30024: Make link_bibs_to_authorities.pl rely on LinkerRelink 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 Signed-off-by: Phil Ringnalda --- misc/link_bibs_to_authorities.pl | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) diff --git a/misc/link_bibs_to_authorities.pl b/misc/link_bibs_to_authorities.pl index f7cd876d26..60983c75cf 100755 --- a/misc/link_bibs_to_authorities.pl +++ b/misc/link_bibs_to_authorities.pl @@ -1,7 +1,21 @@ #!/usr/bin/perl -use strict; -use warnings; +# 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 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 . + +use Modern::Perl; use Koha::Script; use C4::Context; @@ -37,7 +51,7 @@ my $auth_limit; my $bib_limit; my $commit = 100; my $tagtolink; -my $allowrelink = C4::Context->preference("CatalogModuleRelink") || ''; +my $allowrelink = C4::Context->preference("LinkerRelink") // ''; my $result = GetOptions( 'v|verbose' => \$verbose, -- 2.40.0