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