Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/calendar/www/view.tcl	13 Aug 2003 16:08:33 -0000	1.16
+++ openacs-4/packages/calendar/www/view.tcl	25 Nov 2003 00:07:19 -0000	1.16.2.1
@@ -25,7 +25,7 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set admin_p [ad_permission_p $package_id calendar_admin]
+set admin_p [permission::permission_p -object_id $package_id -privilege calendar_admin]
 
 set calendar_list [calendar::calendar_list]
 set date [calendar::adjust_date -date $date]