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

(-)a/misc/maintenance/dedup_authorities.pl (-4 / +3 lines)
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
- 

Return to bug 13706