[open-ils-commits] r12038 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: miker
Date: 2009-02-01 16:34:34 -0500 (Sun, 01 Feb 2009)
New Revision: 12038

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
need the full hook, not just idlist

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-02-01 21:26:36 UTC (rev 12037)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-02-01 21:34:34 UTC (rev 12038)
@@ -35,19 +35,18 @@
 
     my $editor = new_editor(xact=>1);
 
-    my $hooks = $editor->search_action_trigger_hook([
+    my $hooks = $editor->search_action_trigger_hook(
         { key       => $key,
           core_type => $target->json_hint
-        },
-        { idlist    => 1 }
-    ]);
+        }
+    );
 
     my %hook_hash = map { ($_->id, $_) } @$hooks;
 
     my $orgs = $editor->json_query({ from => [ 'actor.org_unit_ancestors' => $location ] });
     my $defs = $editor->search_action_trigger_event_definition([
-        { hook   => $hooks,
-          owner  => [ map { $_->{id} } @$orgs ],
+        { hook   => [ map { $_->id   } @$hooks ],
+          owner  => [ map { $_->{id} } @$orgs  ],
           active => 't'
         },
         { idlist => 1 }