View | Details | Raw Unified | Return to bug 11417
Collapse All | Expand All

(-)a/misc/migration_tools/remove_unused_authorities.pl (-6 / +10 lines)
Lines 27-38 use C4::Context; Link Here
27
use C4::AuthoritiesMarc;
27
use C4::AuthoritiesMarc;
28
use Getopt::Long;
28
use Getopt::Long;
29
29
30
my ($test,@authtypes);
30
my @authtypes;
31
my $want_help = 0;
31
my $want_help = 0;
32
my $test = 0;
32
GetOptions(
33
GetOptions(
33
    'aut|authtypecode:s'    => \@authtypes,
34
    'aut|authtypecode:s' => \@authtypes,
34
    't'    => \$test,
35
    't|test'             => \$test,
35
    'h|help'        => \$want_help
36
    'h|help'             => \$want_help
36
);
37
);
37
38
38
if ($want_help) {
39
if ($want_help) {
Lines 40-45 if ($want_help) { Link Here
40
    exit 0;
41
    exit 0;
41
}
42
}
42
43
44
if ($test) {
45
    print "testing only, authorities will not be deleted.\n";
46
}
47
43
my $dbh=C4::Context->dbh;
48
my $dbh=C4::Context->dbh;
44
@authtypes or @authtypes = qw( NC );
49
@authtypes or @authtypes = qw( NC );
45
my $thresholdmin=0;
50
my $thresholdmin=0;
Lines 88-94 This script will parse all authoritiestypes given as parameter, and remove autho Link Here
88
warning : there is no individual confirmation !
93
warning : there is no individual confirmation !
89
parameters
94
parameters
90
    --aut|authtypecode TYPE       the list of authtypes to check
95
    --aut|authtypecode TYPE       the list of authtypes to check
91
    --t|test                      test mode, don't delete really, just count
96
    --test or -t                  test mode, don't delete really, just count
92
    --help or -h                  show this message.
97
    --help or -h                  show this message.
93
98
94
_USAGE_
99
_USAGE_
95
- 

Return to bug 11417