From 78e05af5465d64d66c20f6dbd49d260142887b14 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 --- 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 9a095454cb..8b8cf5c013 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; @@ -33,7 +47,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.37.3