Index: openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl,v diff -u -r1.8.2.12 -r1.8.2.13 --- openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl 15 Feb 2023 15:20:45 -0000 1.8.2.12 +++ openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl 20 Feb 2023 09:55:16 -0000 1.8.2.13 @@ -284,13 +284,13 @@ aa_log "Revoking permission on user" permission::revoke -object_id $calendar_id_3 -party_id $another_user -privilege calendar_read - aa_false "User '$another_user' has no 'calendar_read' permission on calendar '$calendar_id'" \ - [permission::permission_p -party_id $another_user -object_id $calendar_id -privilege calendar_read] + aa_false "User '$another_user' has no 'calendar_read' permission on calendar '$calendar_id_3'" \ + [permission::permission_p -party_id $another_user -object_id $calendar_id_3 -privilege calendar_read] aa_false "The public has no 'calendar_read' permission on calendar '$calendar_id'" \ - [permission::permission_p -party_id [acs_magic_object "the_public"] -object_id $calendar_id -privilege calendar_read] + [permission::permission_p -party_id [acs_magic_object "the_public"] -object_id $calendar_id_3 -privilege calendar_read] aa_log "Assign permission to the public" - permission::grant -object_id $calendar_id -party_id [acs_magic_object "the_public"] -privilege $cal_privilege + permission::grant -object_id $calendar_id -party_id [acs_magic_object "the_public"] -privilege calendar_read set cache_p [parameter::get -package_id [ad_acs_kernel_id] -parameter PermissionCacheP -default 0] if { $cache_p } {