@@ -, +, @@ --test - Launch the script with -h to see the help - Launch the script with --test and --aut with an authtypecode that is used in your instance - Make sure it does the same thing as launching it with -t - Launch the script for real and make sure it still works as expected, deleting unused authorities. --- misc/migration_tools/remove_unused_authorities.pl | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) --- a/misc/migration_tools/remove_unused_authorities.pl +++ a/misc/migration_tools/remove_unused_authorities.pl @@ -27,12 +27,13 @@ use C4::Context; use C4::AuthoritiesMarc; use Getopt::Long; -my ($test,@authtypes); +my @authtypes; my $want_help = 0; +my $test = 0; GetOptions( - 'aut|authtypecode:s' => \@authtypes, - 't' => \$test, - 'h|help' => \$want_help + 'aut|authtypecode:s' => \@authtypes, + 't|test' => \$test, + 'h|help' => \$want_help ); if ($want_help) { @@ -40,6 +41,10 @@ if ($want_help) { exit 0; } +if ($test) { + print "testing only, authorities will not be deleted.\n"; +} + my $dbh=C4::Context->dbh; @authtypes or @authtypes = qw( NC ); my $thresholdmin=0; @@ -88,7 +93,7 @@ This script will parse all authoritiestypes given as parameter, and remove autho warning : there is no individual confirmation ! parameters --aut|authtypecode TYPE the list of authtypes to check - --t|test test mode, don't delete really, just count + --test or -t test mode, don't delete really, just count --help or -h show this message. _USAGE_ --