|
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 |
- |
|
|