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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-05-26 12:42:01 -0400 (Tue, 26 May 2009)
New Revision: 13232

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
if an explicit event-def-id is provided, assume that's what the caller really wants even if it's inactive.  this is useful for testing

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-05-26 14:26:23 UTC (rev 13231)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-05-26 16:42:01 UTC (rev 13232)
@@ -1479,10 +1479,14 @@
     my $e = OpenILS::Utils::CStoreEditor->new;
     my $def;
 
+    my $auto_method = "open-ils.trigger.event.autocreate.by_definition";
+
     if($event_def) {
         $def = $e->retrieve_action_trigger_event_definition($event_def)
             or return $e->event;
 
+        $auto_method .= '.include_inactive';
+
     } else {
         # find the most appropriate event def depending on context org
         my $orgs = $self->get_org_ancestors($context_org);
@@ -1501,9 +1505,7 @@
     }
 
     my $event_id = $self->simplereq(
-        'open-ils.trigger',
-        'open-ils.trigger.event.autocreate.by_definition', 
-        $def->id, $object, $context_org);
+        'open-ils.trigger', $auto_method, $def->id, $object, $context_org);
 
     my $fire = 'open-ils.trigger.event.fire';