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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-06 15:43:27 -0500 (Fri, 06 Mar 2009)
New Revision: 12450

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
Log:
don't double-up arrays on might_have retrievals.  handle the case where the final object in the path is a might_have

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-03-06 20:41:50 UTC (rev 12449)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-03-06 20:43:27 UTC (rev 12450)
@@ -446,7 +446,7 @@
     if (@$path) {
 
         my $obj_list = [];
-        if (!$multi || $rtype eq 'might_have') {
+        if (!$multi) {
             $obj_list = [$obj] if ($obj);
         } else {
             $obj_list = $obj;
@@ -489,6 +489,7 @@
             }
             $$node{$$label[-1]} = $obj;
         } else {
+            $obj = $$obj[0] if $rtype eq 'might_have';
             $context->$step( $obj ) if ($obj);
         }
     }