Index: openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql,v
diff -u -N -r1.5 -r1.5.24.1
--- openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql	16 Jan 2003 13:40:36 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/permissions/index-postgresql.xql	6 Jul 2016 13:47:03 -0000	1.5.24.1
@@ -5,16 +5,15 @@
 
 <fullquery name="adminable_objects">      
       <querytext>
+
  select o.object_id, acs_object__name(o.object_id) as name, context_id, object_type,
-    (case when o.object_id = :root then 0 else 1 end) as child
-  from acs_objects o
-  where exists ( SELECT 1 
-                   FROM acs_permissions_all map 
-                  WHERE map.object_id = o.object_id
-                    and map.grantee_id = :user_id
-                    and map.privilege = 'admin')
-    and (o.object_id = :root or o.context_id = :root)
-    order by child, object_type, name
+    (case when o.object_id = '629' then 0 else 1 end) as child
+ from acs_permission.permission_p_recursive_array(array(
+     select object_id from acs_objects where object_id = :root or context_id = :root
+   ), :user_id, 'admin') p, acs_objects o
+ where p.orig_object_id = o.object_id
+ order by child, object_type, name
+ 
       </querytext>
 </fullquery>