From: erickson Date: Wed, 9 Aug 2006 15:30:01 +0000 (+0000) Subject: returning date/time in event for debugging X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d51f06fe4661da5db8fbb7d5be62f1295d417d08;p=Evergreen.git returning date/time in event for debugging git-svn-id: svn://svn.open-ils.org/ILS/trunk@5402 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/perlmods/OpenILS/Event.pm b/Open-ILS/src/perlmods/OpenILS/Event.pm index 09c4afd610..1f7ac0971b 100644 --- a/Open-ILS/src/perlmods/OpenILS/Event.pm +++ b/Open-ILS/src/perlmods/OpenILS/Event.pm @@ -40,12 +40,14 @@ sub new { my $lang = 'en-US'; # assume english for now + my $t = CORE::localtime(); + return { ilsevent => $e, textcode => $event, stacktrace => "$f:$l, $ff:$ll", desc => $descs->{$lang}->{$e}, - servertime => CORE::localtime(), + servertime => $t, pid => $$, %params }; }