added additional layer of caller info for debugging

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Event.pm b/Open-ILS/src/perlmods/OpenILS/Event.pm
index 1f7ac09..1a465ca 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Event.pm
@@ -32,11 +32,14 @@ sub new {
 
        my( $m, $f, $l ) = caller(0);
        my( $mm, $ff, $ll ) = caller(1);
+       my( $mmm, $fff, $lll ) = caller(1);
 
        $f  ||= "";
        $l  ||= "";
        $ff ||= "";
        $ll ||= "";
+       $fff ||= "";
+       $lll ||= "";
 
        my $lang = 'en-US'; # assume english for now
 
@@ -45,7 +48,7 @@ sub new {
        return { 
                ilsevent                => $e, 
                textcode                => $event, 
-               stacktrace      => "$f:$l, $ff:$ll", 
+               stacktrace      => "$f:$l $ff:$ll $fff:$lll", 
                desc                    => $descs->{$lang}->{$e},
                servertime      => $t,
                pid                     => $$, %params };