@@ -, +, @@ object for log --- C4/Log.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) --- a/C4/Log.pm +++ a/C4/Log.pm @@ -126,10 +126,12 @@ Logs the path and name of the calling script plus the information privided by pa #' sub cronlogaction { - my ($infos)=@_; + my $params = shift; + my $info = $params->{info}; + my $pid = $params->{pid}; my $loginfo = (caller(0))[1]; - $loginfo .= ' ' . $infos if $infos; - logaction( 'CRONJOBS', 'Run', undef, $loginfo ) if C4::Context->preference('CronjobLog'); + $loginfo .= ' ' . $info if $info; + logaction( 'CRONJOBS', 'Run', $pid, $loginfo ) if C4::Context->preference('CronjobLog'); } 1; --