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

(-)a/C4/Log.pm (-1 / +2 lines)
Lines 91-97 Convenience routine to add a record into action_logs table from a cron job. Link Here
91
91
92
#'
92
#'
93
sub cronlogaction {
93
sub cronlogaction {
94
    logaction( 'CRONJOBS', 'Run', 0, (caller(0))[1] ) if C4::Context->preference('CronjobLog');
94
    my ( @params ) = @_;
95
    logaction( 'CRONJOBS', 'Run', 0, "@params" ) if C4::Context->preference('CronjobLog');
95
}
96
}
96
97
97
98
(-)a/misc/cronjobs/overdue_notices.pl (-3 / +1 lines)
Lines 294-299 my @myborcat; Link Here
294
my @myborcatout;
294
my @myborcatout;
295
my ( $date_input, $today );
295
my ( $date_input, $today );
296
296
297
cronlogaction(join ' ', $0, @ARGV);
297
GetOptions(
298
GetOptions(
298
    'help|?'         => \$help,
299
    'help|?'         => \$help,
299
    'man'            => \$man,
300
    'man'            => \$man,
Lines 315-322 GetOptions( Link Here
315
pod2usage(1) if $help;
316
pod2usage(1) if $help;
316
pod2usage( -verbose => 2 ) if $man;
317
pod2usage( -verbose => 2 ) if $man;
317
318
318
cronlogaction();
319
320
if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
319
if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
321
    warn qq(using "$csvfilename" as filename, that seems odd);
320
    warn qq(using "$csvfilename" as filename, that seems odd);
322
}
321
}
323
- 

Return to bug 13889