Index: openacs-4/packages/calendar/www/admin/calendar-permissions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/admin/Attic/calendar-permissions.tcl,v
diff -u -r1.2.6.1 -r1.2.6.2
--- openacs-4/packages/calendar/www/admin/calendar-permissions.tcl	18 Nov 2003 12:45:58 -0000	1.2.6.1
+++ openacs-4/packages/calendar/www/admin/calendar-permissions.tcl	18 Nov 2003 13:15:40 -0000	1.2.6.2
@@ -31,8 +31,9 @@
 
 # get user_id and check permission of the user
 set user_id [ad_verify_and_get_user_id]    
-ad_require_permission $user_id calendar_admin
 
+permission::require_permission -object_id $calendar_id -privilege calendar_admin
+
 # get party name
 set party_name [db_string get_party_name {
                   select   acs_object.name(:party_id)