From df393b38b8102b4d304b79cb2ba2e73caf8187bd Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 17 Jun 2022 22:34:45 +0000 Subject: [PATCH] Bug 30939: Fix use statement for DelAuthority Without this patch, the script won't delete any unused authorities, but gives an error instead and dies: Undefined subroutine &main::DelAuthority called at ./misc/migration_tools/remove_unused_authorities.pl line 98. To test: - Run from koha-shell: ./misc/migration_tools/remove_unused_authorities.pl -t - Verify several authorities are reported as unused - ./misc/migration_tools/remove_unused_authorities.pl -c - Verify the error message is shown when the first unused authority is found and the script stops - Apply patch and rerun: ./misc/migration_tools/remove_unused_authorities.pl -t - Verify the error is gone, the script finishes and auhorities are deleted https://bugs.koha-community.org/show_bug.cgi?id=30936 Signed-off-by: David Nind Signed-off-by: Fridolin Somers Signed-off-by: Tomas Cohen Arazi --- misc/migration_tools/remove_unused_authorities.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/misc/migration_tools/remove_unused_authorities.pl b/misc/migration_tools/remove_unused_authorities.pl index da57f88f42..0065a16e9f 100755 --- a/misc/migration_tools/remove_unused_authorities.pl +++ b/misc/migration_tools/remove_unused_authorities.pl @@ -24,7 +24,7 @@ use Modern::Perl; use Koha::Script; use C4::Context; -use C4::AuthoritiesMarc; +use C4::AuthoritiesMarc qw( DelAuthority ); use Getopt::Long qw( GetOptions ); use Koha::SearchEngine::Search; -- 2.39.5