Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql	24 Apr 2001 06:02:26 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-oracle.xql	21 Nov 2001 21:18:33 -0000	1.2
@@ -3,6 +3,26 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
+<fullquery name="ad_permission_grant.grant_permission">
+<querytext>
+	declare begin
+	acs_permission.grant_permission(object_id => :object_id,
+					user_id => :user_id,
+					privilege => :privilege);
+	end;
+</querytext>
+</fullquery>
+
+<fullquery name="ad_permission_revoke.revoke_permission">
+<querytext>
+	declare begin
+	acs_permission.revoke_permission(object_id => :object_id,
+					user_id => :user_id,
+					privilege => :privilege);
+	end;
+</querytext>
+</fullquery>
+
 <fullquery name="ad_permission_p.result">      
       <querytext>
       
Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	1 May 2001 21:19:18 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	21 Nov 2001 21:18:33 -0000	1.3
@@ -2,6 +2,24 @@
 <queryset>
 <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
+<fullquery name="ad_permission_grant.grant_permission">
+<querytext>
+	select
+	acs_permission__grant_permission(:object_id,
+					:user_id,
+					:privilege);
+</querytext>
+</fullquery>
+
+<fullquery name="ad_permission_revoke.revoke_permission">
+<querytext>
+	select
+	acs_permission__revoke_permission(:object_id,
+					:user_id,
+					:privilege);
+</querytext>
+</fullquery>
+
 <fullquery name="ad_permission_p.result">
 <querytext>
     select count(*)
Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	17 Nov 2001 12:51:36 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	21 Nov 2001 21:18:33 -0000	1.3
@@ -6,6 +6,30 @@
   @cvs-id $Id$
 }
 
+ad_proc -public ad_permission_grant {
+    user_id
+    object_id
+    privilege
+} {
+    Grant a permission
+
+    @author ben@openforce
+} {
+    db_exec_plsql grant_permission {}
+}
+
+ad_proc -public ad_permission_revoke {
+    user_id
+    object_id
+    privilege
+} {
+    Revoke a permission
+
+    @author ben@openforce
+} {
+    db_exec_plsql revoke_permission {}
+}
+
 ad_proc -public ad_permission_p {
   {-user_id ""}
   object_id