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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-02-01 16:35:44 -0500 (Sun, 01 Feb 2009)
New Revision: 12039

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
Log:
keys is more efficient than map, since we already have the id list as the hash keys

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-02-01 21:34:34 UTC (rev 12038)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger.pm	2009-02-01 21:35:44 UTC (rev 12039)
@@ -45,7 +45,7 @@
 
     my $orgs = $editor->json_query({ from => [ 'actor.org_unit_ancestors' => $location ] });
     my $defs = $editor->search_action_trigger_event_definition([
-        { hook   => [ map { $_->id   } @$hooks ],
+        { hook   => [ keys %hook_hash ],
           owner  => [ map { $_->{id} } @$orgs  ],
           active => 't'
         },