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

(-)a/misc/cronjobs/erm_run_harvester.pl (-1 / +6 lines)
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
- 

Return to bug 38237