@@ -, +, @@ - 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 --- misc/migration_tools/remove_unused_authorities.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/misc/migration_tools/remove_unused_authorities.pl +++ a/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; --