@@ -, +, @@ unsused authorities 1 - Reset db to koha test database 2 - perl misc/migration_tools/remove_unused_authorities.pl -t 3 - Note a number of unsued authorities 4 - perl misc/migration_tools/remove_unused_authorities.pl -c 5 - Note authorities are removed 6 - Reset db 7 - Apply patch 8 - perl misc/migration_tools/remove_unused_authorities.pl -t 9 - Note results are the same --- 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 @@ -95,7 +95,7 @@ while (my $data=$rqselect->fetchrow_hashref){ } unless ($used > 0){ unless ($test) { - DelAuthority({ authid => $data->{'authid'} }); + DelAuthority({ authid => $data->{'authid'}, skip_merge => 1 }); print " : deleted"; } else { print " : can be deleted"; --