Index: openacs-4/packages/cms/www/modules/permissions/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/permissions/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/permissions/index.tcl	4 Sep 2001 04:50:05 -0000	1.3
+++ openacs-4/packages/cms/www/modules/permissions/index.tcl	19 Aug 2002 03:42:26 -0000	1.4
@@ -25,46 +25,7 @@
 }
 
 # Get a list of permissions that users have on the item
-template::query get_permissions permissions multirow "
-  select * from ( 
-    select 
-      p.pretty_name, 
-      p.privilege, 
-      u.party_id as grantee_id,
-      n.first_names || ' ' || n.last_name as grantee_name,
-      u.email
-    from 
-      acs_permissions per, acs_privileges p, parties u,
-      persons n,
-      (select object_id from acs_objects 
-	 connect by prior context_id = object_id 
-		and prior security_inherit_p = 't'
-	 start with object_id = :object_id) o
-    where
-      per.privilege = p.privilege
-    and
-      per.grantee_id = u.party_id
-    and
-      per.object_id = o.object_id
-    and
-      u.party_id = n.person_id
-  union
-    select
-      p.pretty_name, p.privilege, 
-      -1 as grantee_id, 'All Users' as grantee_name, ' ' as email 
-    from
-      acs_permissions per, acs_privileges p, parties u
-    where
-      u.party_id = -1
-    and
-      per.object_id = :object_id
-    and
-      per.privilege = p.privilege
-    and
-      per.grantee_id = u.party_id
-  ) order by
-    grantee_name, privilege
-  " 
+db_multirow permissions get_permissions ""
 
 
 # Create a URL passthrough stub to access permissions