[open-ils-commits] r11333 - trunk/Open-ILS/src/perlmods/OpenILS

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-25 09:40:21 -0500 (Tue, 25 Nov 2008)
New Revision: 11333

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
Log:
no longer force a pre-defined event name, since some events will be derived from user configured data in the DB

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2008-11-25 14:39:50 UTC (rev 11332)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2008-11-25 14:40:21 UTC (rev 11333)
@@ -20,16 +20,10 @@
 
 sub new {
 	my( $class, $event, %params ) = @_;
-
 	_load_events() unless $events;
 
-	if( $event ne 'SUCCESS' ) {
-		$logger->info("Returning non-success event object: $event ");  
-	}
-
+	throw OpenSRF::EX ("Bad event name: $event") unless $event;
 	my $e = $events->{$event};
-	throw OpenSRF::EX 
-		("No event defined with textcode: $event") unless defined $e;
 
 	my( $m, $f, $l ) = caller(0);
 	my( $mm, $ff, $ll ) = caller(1);
@@ -50,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 };
 }