projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 11412: fix potential bulkmarcimport crash when searching for duplicates in author...
[koha_fer]
/
misc
/
migration_tools
/
remove_unused_authorities.pl
diff --git
a/misc/migration_tools/remove_unused_authorities.pl
b/misc/migration_tools/remove_unused_authorities.pl
index
fbeee78
..
7920923
100755
(executable)
--- a/
misc/migration_tools/remove_unused_authorities.pl
+++ b/
misc/migration_tools/remove_unused_authorities.pl
@@
-27,12
+27,13
@@
use C4::Context;
use C4::AuthoritiesMarc;
use Getopt::Long;
use C4::AuthoritiesMarc;
use Getopt::Long;
-my
($test,@authtypes)
;
+my
@authtypes
;
my $want_help = 0;
my $want_help = 0;
+my $test = 0;
GetOptions(
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) {
);
if ($want_help) {
@@
-40,6
+41,10
@@
if ($want_help) {
exit 0;
}
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;
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
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
+ --t
est or -t
test mode, don't delete really, just count
--help or -h show this message.
_USAGE_
--help or -h show this message.
_USAGE_