[open-ils-commits] r13885 - branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-08-19 11:59:22 -0400 (Wed, 19 Aug 2009)
New Revision: 13885

Modified:
   branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
if the requested hook does not exist, gracefully back out

Modified: branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-08-19 15:59:16 UTC (rev 13884)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-08-19 15:59:22 UTC (rev 13885)
@@ -42,6 +42,11 @@
         }
     );
 
+    unless(@$hooks) {
+        $editor->rollback;
+        return undef;
+    }
+
     my %hook_hash = map { ($_->key, $_) } @$hooks;
 
     my $orgs = $editor->json_query({ from => [ 'actor.org_unit_ancestors' => $location ] });