Lines 22-30
use Getopt::Long qw( GetOptions );
Link Here
|
22 |
use Koha::DateUtils qw( dt_from_string ); |
22 |
use Koha::DateUtils qw( dt_from_string ); |
23 |
use POSIX; |
23 |
use POSIX; |
24 |
|
24 |
|
|
|
25 |
use C4::Log qw( cronlogaction ); |
25 |
use Koha::Script; |
26 |
use Koha::Script; |
26 |
use Koha::ERM::EUsage::UsageDataProviders; |
27 |
use Koha::ERM::EUsage::UsageDataProviders; |
27 |
|
28 |
|
|
|
29 |
my $command_line_options = join(" ",@ARGV); |
30 |
|
28 |
# Command line option values |
31 |
# Command line option values |
29 |
my $get_help = 0; |
32 |
my $get_help = 0; |
30 |
my $begin_date = 0; |
33 |
my $begin_date = 0; |
Lines 54-59
unless ($begin_date) {
Link Here
|
54 |
die "ERROR: Please specify a begin-date"; |
57 |
die "ERROR: Please specify a begin-date"; |
55 |
} |
58 |
} |
56 |
|
59 |
|
|
|
60 |
cronlogaction({ info => $command_line_options }); |
57 |
debug_msg("Dry run: Harvests will not be enqueued") if $dry_run; |
61 |
debug_msg("Dry run: Harvests will not be enqueued") if $dry_run; |
58 |
while ( my $udprovider = $udproviders->next ) { |
62 |
while ( my $udprovider = $udproviders->next ) { |
59 |
debug_msg( |
63 |
debug_msg( |
Lines 94-99
while ( my $udprovider = $udproviders->next ) {
Link Here
|
94 |
|
98 |
|
95 |
} |
99 |
} |
96 |
|
100 |
|
|
|
101 |
cronlogaction({ action => 'End', info => "COMPLETED" }); |
102 |
|
97 |
sub debug_msg { |
103 |
sub debug_msg { |
98 |
my ($msg) = @_; |
104 |
my ($msg) = @_; |
99 |
|
105 |
|
100 |
- |
|
|