|
Lines 27-33
use Koha::Statistics;
Link Here
|
| 27 |
use Getopt::Long qw( GetOptions ); |
27 |
use Getopt::Long qw( GetOptions ); |
| 28 |
use Pod::Usage qw( pod2usage ); |
28 |
use Pod::Usage qw( pod2usage ); |
| 29 |
|
29 |
|
| 30 |
sub usage { |
30 |
my ($params); |
|
|
31 |
GetOptions( |
| 32 |
'confirm' => \$params->{confirm}, 'help' => \$params->{help}, 'age:i' => \$params->{age}, |
| 33 |
); |
| 34 |
if ( $params->{help} ) { |
| 31 |
pod2usage( -verbose => 2 ); |
35 |
pod2usage( -verbose => 2 ); |
| 32 |
exit; |
36 |
exit; |
| 33 |
} |
37 |
} |
|
Lines 57-63
my $result = GetOptions(
Link Here
|
| 57 |
|
61 |
|
| 58 |
usage() if $help; |
62 |
usage() if $help; |
| 59 |
|
63 |
|
| 60 |
update_localuse(); |
64 |
if ( $params->{confirm} ) { |
|
|
65 |
update_localuse(); |
| 66 |
} |
| 61 |
|
67 |
|
| 62 |
=head1 NAME |
68 |
=head1 NAME |
| 63 |
|
69 |
|
|
Lines 67-82
update_local_use_from_statistics.pl
Link Here
|
| 67 |
|
73 |
|
| 68 |
update_localuse_from_statistics.pl |
74 |
update_localuse_from_statistics.pl |
| 69 |
update_localuse_from_statistics.pl --help |
75 |
update_localuse_from_statistics.pl --help |
|
|
76 |
update_localuse_from_statistics.pl --confirm |
| 70 |
|
77 |
|
| 71 |
=head1 DESCRIPTION |
78 |
=head1 DESCRIPTION |
| 72 |
|
79 |
|
| 73 |
This script updates the items.localuse column with data from the statistics table to make sure the two tables are congruent. |
80 |
This script updates the items.localuse column with data from the statistics table to make sure the two tables are congruent. |
| 74 |
|
81 |
|
| 75 |
=over 8 |
82 |
=head1 OPTIONS |
|
|
83 |
|
| 84 |
=over |
| 85 |
|
| 86 |
=item B<-h--help> |
| 87 |
|
| 88 |
Prints this help message |
| 76 |
|
89 |
|
| 77 |
=item B<--help> |
90 |
=item B<-c|--confirm> |
| 78 |
|
91 |
|
| 79 |
Prints this help |
92 |
Confirm to run the script. |
| 80 |
|
93 |
|
| 81 |
=back |
94 |
=back |
| 82 |
|
95 |
|
| 83 |
- |
|
|