Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v
diff -u -N -r1.39 -r1.40
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	9 Nov 2008 23:29:22 -0000	1.39
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	29 Sep 2013 13:55:02 -0000	1.40
@@ -93,9 +93,9 @@
 }
 
 # permissions
-set create_p [ad_permission_p $force_calendar_id cal_item_create]
-set edit_p [ad_permission_p $force_calendar_id cal_item_edit]
-set admin_p [ad_permission_p $force_calendar_id calendar_admin]
+set create_p [permission::permission_p -object_id $force_calendar_id -privilege cal_item_create]
+set edit_p [permission::permission_p -object_id $force_calendar_id -privilege cal_item_edit]
+set admin_p [permission::permission_p -object_id $force_calendar_id -privilege calendar_admin]
 
 if {[empty_string_p $view]} {
     set view $config(default_view)