[open-ils-commits] r12375 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-03-03 10:19:48 -0500 (Tue, 03 Mar 2009)
New Revision: 12375

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
Log:
return the underlying atev, which was the original intention

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2009-03-03 14:30:47 UTC (rev 12374)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/EventGroup.pm	2009-03-03 15:19:48 UTC (rev 12375)
@@ -128,7 +128,7 @@
     my $self = shift;
     return undef unless (ref $self);
 
-    return $self->{events}[0];
+    return $self->{events}[0]->event;
 }
 
 sub events {