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>