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 -r1.35.2.7 -r1.35.2.8
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	25 Jan 2022 14:00:42 -0000	1.35.2.7
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	15 Feb 2023 14:52:49 -0000	1.35.2.8
@@ -99,10 +99,10 @@
             permission::set_not_inherit -object_id $cal_item_id
         }
 
-        assign_permission  $cal_item_id  $creation_user read
-        assign_permission  $cal_item_id  $creation_user write
-        assign_permission  $cal_item_id  $creation_user delete
-        assign_permission  $cal_item_id  $creation_user admin
+        ::permission::grant \
+            -object_id $cal_item_id \
+            -party_id $creation_user \
+            -privilege admin
 
         calendar::do_notifications -mode New -cal_item_id $cal_item_id
         return $cal_item_id
@@ -331,13 +331,18 @@
     db_exec_plsql delete_cal_item {}
 }
 
-ad_proc calendar::item::assign_permission { cal_item_id
+ad_proc -deprecated calendar::item::assign_permission { cal_item_id
                                      party_id
                                      permission
                                      {revoke ""}
 } {
     update the permission of the specific cal_item
     if revoke is set to revoke, then we revoke all permissions
+
+    DEPRECATED: this api is in fact a trivial wrapper for the permission api.
+
+    @see permission::grant
+    @see permission::revoke
 } {
     if { $revoke ne "revoke" } {
         if { $permission ne "cal_item_read" } {