Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	20 May 2002 17:33:21 -0000	1.10
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	2 Oct 2002 11:28:45 -0000	1.10.2.1
@@ -227,32 +227,14 @@
 
     if { [empty_string_p $revoke] } {
 	# grant the permissions
-    
-	db_exec_plsql assign_calendar_permissions {
-	    begin
-	      acs_permission.grant_permission (
-	        object_id       =>      :calendar_id,
-	        grantee_id      =>      :party_id,
-	        privilege       =>      :cal_privilege
-	      );
-	    end;
-	}
-	
 
+        permission::grant -object_id $calendar_id -party_id $party_id -privilege $cal_privilege
+
     } elseif { [string equal $revoke "revoke"] } {
 	# revoke the permissions
 
+        permission::revoke -object_id $calendar_id -party_id $party_id -privilege $cal_privilege
 
-	db_exec_plsql revoke_calendar_permissions {
-	    begin
-	      acs_permission.revoke_permission (
-	        object_id       =>      :calendar_id,
-	        grantee_id      =>      :party_id,
-	        privilege       =>      :cal_privilege
-	      );
-	    end;
-	}
-
     }    
 
 }