From 62df962a4d7d3939c1a6de39e4221788ccae64bc Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 11 May 2009 14:34:22 +0000
Subject: [PATCH] exit early if no event is created

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13125 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index 1ab49a6ed5..f76c72cd47 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -1516,6 +1516,8 @@ sub fire_object_event {
     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']}}
-- 
2.43.2