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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-03 14:25:09 -0400 (Fri, 03 Apr 2009)
New Revision: 12777

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
Log:
return the fleshed event from fire-event-by-barcode

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-04-03 15:39:00 UTC (rev 12776)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ.pm	2009-04-03 18:25:09 UTC (rev 12777)
@@ -1108,7 +1108,14 @@
         $event_id = [$event_id];
     }
 
-    return $U->simplereq('open-ils.trigger', $fire, $event_id);
+    my $resp = $U->simplereq('open-ils.trigger', $fire, $event_id);
+    return 0 unless $resp and ($resp->{event} or $resp->{events});
+    my $evt = $resp->{event} ? $resp->{event} : $resp->{events}->[0];
+
+    return $e->retrieve_action_trigger_event([
+        $evt->id,
+        {flesh => 1, flesh_fields => {atev => ['template_output', 'error_output']}}
+    ]);
 }