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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-05-11 10:34:22 -0400 (Mon, 11 May 2009)
New Revision: 13125

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
exit early if no event is created

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-05-11 14:03:43 UTC (rev 13124)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-05-11 14:34:22 UTC (rev 13125)
@@ -1516,6 +1516,8 @@
     return 0 unless $resp and ($resp->{event} or $resp->{events});
     my $evt = $resp->{event} ? $resp->{event} : $resp->{events}->[0];
 
+    return 0 unless $evt;
+
     return $e->retrieve_action_trigger_event([
         $evt->id,
         {flesh => 1, flesh_fields => {atev => ['template_output', 'error_output']}}