Index: openacs.org-dev/packages/cms/www/modules/permissions/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/permissions/index.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/permissions/index.tcl	9 Jul 2002 17:35:04 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/permissions/index.tcl	8 Oct 2002 15:47:02 -0000	1.1.1.2
@@ -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