Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v
diff -u -N -r1.10 -r1.10.2.1
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	23 Aug 2002 19:07:35 -0000	1.10
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	2 Oct 2002 11:28:45 -0000	1.10.2.1
@@ -33,47 +33,21 @@
 	if { ![string equal $permission "cal_item_read"] } {
 
 	    # grant read permission first
-
-	    db_exec_plsql 1_grant_calendar_permissions_to_items {
-		begin
-		acs_permission.grant_permission (
-		  object_id       =>      :cal_item_id,
-		  grantee_id      =>      :party_id,
-		  privilege       =>      'cal_item_read'
-		);
-		end;
-	    }
+            permission::grant -object_id $cal_item_id -party_id $party_id -privilege cal_item_read
 	    
 	}
 	
 	# grant other permission
 
-	db_exec_plsql 2_grant_calendar_permissions_to_items {
-	    begin
-	    acs_permission.grant_permission (
-	      object_id       =>      :cal_item_id,
-	      grantee_id      =>      :party_id,
-	      privilege       =>      :permission
-	    );
-	    end;
-	}
+        permission::grant -object_id $cal_item_id -party_id $party_id -privilege $permission
 
 	
     } elseif { [string equal $revoke "revoke"] } {
 	
 	# revoke the permissions
 
-	db_exec_plsql 3_grant_calendar_permissions_to_items {
-	    begin
-	    acs_permission.revoke_permission (
-	      object_id       =>      :cal_item_id,
-	      grantee_id      =>      :party_id,
-	      privilege       =>      :permission
-	    );
-	    end;
-	}
+        permission::revoke -object_id $cal_item_id -party_id $party_id -privilege $permission
 
-
     }
 }