X-Git-Url: https://git.evergreen-ils.org/?p=Evergreen.git;a=blobdiff_plain;f=Open-ILS%2Fsrc%2Fperlmods%2FOpenILS%2FEvent.pm;h=8c62a99125ae0bfe0747bbd1d53a4f147fd37e89;hp=dcb518ff0aa6484fd5eced7f8b829f03a066693e;hb=4345e51ac28e8d20f69149afb678fbd0eb2a196e;hpb=a582f265043e430a10ab098bf25374da1709ce10

diff --git a/Open-ILS/src/perlmods/OpenILS/Event.pm b/Open-ILS/src/perlmods/OpenILS/Event.pm
index dcb518ff0a..8c62a99125 100644
--- a/Open-ILS/src/perlmods/OpenILS/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Event.pm
@@ -18,29 +18,17 @@ my $events = undef;
 sub new {
 	my( $class, $event, %params ) = @_;
 
-	my $perm = $params{perm};
-	my $permloc = $params{permloc};
-	my $payload = $params{payload};
-
 	_load_events() unless $events;
 
 	if( $event ne 'SUCCESS' ) {
-		my $p = (defined $perm) ? $perm : "(none)";
-		my $pl = (defined $permloc) ? $permloc  : "(none)";
-		my $pa = (defined $payload) ? $payload : "(none)";
-		$logger->warn("Returning event object $event " . 
-			"{ ilsperm => $p, ilspermloc => $pl, payload => $pa }");
+		$logger->info("Returning non-success event object: $event ");  
 	}
 
 	my $e = $events->{$event};
 	throw OpenSRF::EX 
 		("No event defined with textcode: $event") unless defined $e;
 
-	my $h = { ilsevent => $e };
-	$h->{paylod}		= $payload if defined $payload;
-	$h->{ilsperm}		= $perm if defined $perm;
-	$h->{ilspermloc}	= $permloc if defined $permloc;
-	$h->{textcode}		= $event;
+	my $h = { ilsevent => $e, textcode => $event, %params };
 
 	return $h;
 }