From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 9 Oct 2006 20:07:59 +0000 (+0000)
Subject:  added additional layer of caller info for debugging
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a84f7a6f0e271c893cf5225473b271ed148522f3;p=evergreen%2Fpines.git

 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 1f7ac0971b..1a465ca455 100644
--- 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 };