|
Lines 15-21
use Koha::Authorities;
Link Here
|
| 15 |
use Getopt::Long; |
15 |
use Getopt::Long; |
| 16 |
use YAML; |
16 |
use YAML; |
| 17 |
use List::MoreUtils qw/uniq/; |
17 |
use List::MoreUtils qw/uniq/; |
| 18 |
use Pod::Usage qw( pod2usage ); |
18 |
use Pod::Usage qw( pod2usage ); |
| 19 |
|
19 |
|
| 20 |
=head1 NAME |
20 |
=head1 NAME |
| 21 |
|
21 |
|
|
Lines 68-74
will only auths with a low auth_id (old records)
Link Here
|
| 68 |
|
68 |
|
| 69 |
=item B<--verbose> |
69 |
=item B<--verbose> |
| 70 |
|
70 |
|
| 71 |
display verbose loggin, can be repeated twice for more info |
71 |
display verbose logging, can be repeated twice for more info |
| 72 |
|
72 |
|
| 73 |
|
73 |
|
| 74 |
=item B<--help> |
74 |
=item B<--help> |
|
Lines 100-106
my $result = GetOptions(
Link Here
|
| 100 |
pod2usage( -verbose => 2 ) if ($help); |
100 |
pod2usage( -verbose => 2 ) if ($help); |
| 101 |
|
101 |
|
| 102 |
print "RUNNING IN TEST MODE, NO CHANGES WILL BE MADE\n" unless $confirm; |
102 |
print "RUNNING IN TEST MODE, NO CHANGES WILL BE MADE\n" unless $confirm; |
| 103 |
$verbose = 1 unless ( $confirm || $verbose ); |
103 |
$verbose = 1 unless ( $confirm || $verbose ); |
| 104 |
|
104 |
|
| 105 |
my @choose_subs; |
105 |
my @choose_subs; |
| 106 |
@methods = ('used') unless @methods; |
106 |
@methods = ('used') unless @methods; |
| 107 |
- |
|
|