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.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	18 Mar 2002 21:59:14 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs-postgresql.xql	25 Mar 2002 07:08:19 -0000	1.6
@@ -4,27 +4,21 @@
 
     <fullquery name="permission::grant.grant_permission">
         <querytext>
-            declare
-            begin
-                acs_permission__grant_permission(
-                    object_id => :object_id,
-                    grantee_id => :party_id,
-                    privilege => :privilege
+                select acs_permission__grant_permission(
+                    :object_id,
+                    :party_id,
+                    :privilege
                 );
-            end;
         </querytext>
     </fullquery>
 
     <fullquery name="permission::revoke.revoke_permission">
         <querytext>
-            declare
-            begin
-                acs_permission__revoke_permission(
-                    object_id => :object_id,
-                    grantee_id => :party_id,
-                    privilege => :privilege
+             select acs_permission__revoke_permission(
+                    :object_id,
+                    :party_id,
+                    :privilege
                 );
-            end;
         </querytext>
     </fullquery>