Index: openacs-4/packages/acs-subsite/www/permissions/grant-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/Attic/grant-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/permissions/grant-postgresql.xql	17 May 2003 10:02:04 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/permissions/grant-postgresql.xql	29 Sep 2003 14:53:37 -0000	1.4
@@ -1,5 +1,4 @@
 <?xml version="1.0"?>
-
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
@@ -9,17 +8,25 @@
       </querytext>
 </fullquery>
 
- 
-<fullquery name="parties">      
+<fullquery name="select_privileges_hierarchy">      
       <querytext>
-      
-  select p.party_id, 
-         acs_object__name(p.party_id)|| coalesce(' ('||p.email||')', '') as name
-  from   parties p
-  order  by upper(acs_object__name(p.party_id))
+          select p.privilege, tree_level(h.tree_sortkey) as level
+          from acs_privileges p
+          left join acs_privilege_hierarchy_index h on p.privilege=h.privilege
+          order by h.tree_sortkey
+      </querytext>
+</fullquery>
 
+<fullquery name="grant">      
+      <querytext>
+          select acs_permission__grant_permission(:object_id, :party_id, :privilege)
       </querytext>
 </fullquery>
 
+<fullquery name="revoke">      
+      <querytext>
+        select acs_permission__revoke_permission(:object_id, :party_id, :privilege)
+      </querytext>
+</fullquery>
  
 </queryset>