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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-03 16:49:34 -0500 (Tue, 03 Mar 2009)
New Revision: 12388

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
return the atev objects, not the trigger::event objects which, incidentally, send perl2json into a mem-gobble tailspin, presumably from cicular refs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-03-03 21:47:46 UTC (rev 12387)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-03-03 21:49:34 UTC (rev 12388)
@@ -133,7 +133,7 @@
         valid     => $e->valid,
         reacted   => $e->reacted,
         cleanedup => $e->cleanedup,
-        events    => $e->events
+        events    => [map { $_->event } @{$e->events}]
     };
 }
 __PACKAGE__->register_method(