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

(-)a/C4/Log.pm (-4 / +5 lines)
Lines 126-135 Logs the path and name of the calling script plus the information privided by pa Link Here
126
126
127
#'
127
#'
128
sub cronlogaction {
128
sub cronlogaction {
129
    my ($infos)=@_;
129
    my $params = shift;
130
    my $info = $params->{info};
131
    my $pid = $params->{pid};
130
    my $loginfo = (caller(0))[1];
132
    my $loginfo = (caller(0))[1];
131
    $loginfo .= ' ' . $infos if $infos;
133
    $loginfo .= ' ' . $info if $info;
132
    logaction( 'CRONJOBS', 'Run', undef, $loginfo ) if C4::Context->preference('CronjobLog');
134
    logaction( 'CRONJOBS', 'Run', $pid, $loginfo ) if C4::Context->preference('CronjobLog');
133
}
135
}
134
136
135
1;
137
1;
136
- 

Return to bug 31203