added servtime for debugging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5374 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Event.pm b/Open-ILS/src/perlmods/OpenILS/Event.pm
index b9c52ca..09c4afd 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Event.pm
@@ -45,6 +45,7 @@ sub new {
                textcode                => $event, 
                stacktrace      => "$f:$l, $ff:$ll", 
                desc                    => $descs->{$lang}->{$e},
+               servertime      => CORE::localtime(),
                pid                     => $$, %params };
 }