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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-02 14:56:00 -0400 (Thu, 02 Apr 2009)
New Revision: 12765

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
Log:
the key changes depending on which stored proc is called.  use whatever key is given to access the value

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-04-02 18:48:44 UTC (rev 12764)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm	2009-04-02 18:56:00 UTC (rev 12765)
@@ -1233,7 +1233,7 @@
     $func = $func.'_all' if $$options{descendants};
 
     my $orgs = $e->json_query({from => [$func, $e->requestor->id, $perm]});
-    $orgs = [map { $_->{'permission.usr_has_perm_at'} } @$orgs];
+    $orgs = [map { $_->{ (keys %$_)[0] } } @$orgs];
 
     return $orgs unless $$options{objects};