From d51f06fe4661da5db8fbb7d5be62f1295d417d08 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 9 Aug 2006 15:30:01 +0000
Subject: [PATCH] returning date/time in event for debugging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5402 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Event.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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 };
 }
 
-- 
2.11.0