From 367cb8a25cc4ca32fc6d9d7f77500876a3a3a0a5 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 23 Apr 2015 07:51:30 -0400 Subject: [PATCH] Bug 13889 [QA Followup] - Supress warning, set object column to undef instead of 0 --- C4/Log.pm | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/Log.pm b/C4/Log.pm index 6871add..f925040 100644 --- a/C4/Log.pm +++ b/C4/Log.pm @@ -93,8 +93,9 @@ Logs the path and name of the calling script plus the information privided by pa #' sub cronlogaction { my ($infos)=@_; - my $loginfo = (caller(0))[1] . ' ' . $infos; - logaction( 'CRONJOBS', 'Run', 0, $loginfo ) if C4::Context->preference('CronjobLog'); + my $loginfo = (caller(0))[1]; + $loginfo .= ' ' . $infos if $infos; + logaction( 'CRONJOBS', 'Run', undef, $loginfo ) if C4::Context->preference('CronjobLog'); } -- 1.7.2.5