[open-ils-commits] r16582 - trunk/Open-ILS/src/perlmods/OpenILS (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-06-03 13:30:47 -0400 (Thu, 03 Jun 2010)
New Revision: 16582

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
Log:
prevent warnings that occur when the event type is not defined

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2010-06-03 15:08:50 UTC (rev 16581)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2010-06-03 17:30:47 UTC (rev 16582)
@@ -23,7 +23,7 @@
 	_load_events() unless $events;
 
 	throw OpenSRF::EX ("Bad event name: $event") unless $event;
-	my $e = $events->{$event};
+	my $e = $events->{$event} || '';
 
 	my( $m, $f, $l ) = caller(0);
 	my( $mm, $ff, $ll ) = caller(1);
@@ -44,7 +44,7 @@
 		ilsevent		=> $e, 
 		textcode		=> $event, 
 		stacktrace	=> "$f:$l $ff:$ll $fff:$lll", 
-		desc			=> $descs->{$lang}->{$e || ''} || '',
+		desc			=> $descs->{$lang}->{$e} || '',
 		servertime	=> $t,
 		pid			=> $$, %params };
 }