Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.adp	18 Mar 2002 06:05:26 -0000	1.5
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.adp	18 Mar 2002 18:20:43 -0000	1.6
@@ -4,8 +4,10 @@
 <td valign=top width=180>
 @cal_nav@
 <p>
-<li> <a href=calendar/?force_calendar_id=@force_calendar_id@&date=@current_date@&action=add&start_time=&end_time=&return_url=../&show_cal_nav=0>Add an item</a>
-<li> <a href="calendar/admin/calendar-item-types?calendar_id=@force_calendar_id@">Manage Item Types</a>
+<ul>
+<if @create_p@><li> <a href=calendar/?force_calendar_id=@force_calendar_id@&date=@current_date@&action=add&start_time=&end_time=&return_url=../&show_cal_nav=0>Add an item</a></if>
+<if @admin_p@><li> <a href="calendar/calendar-item-types?calendar_id=@force_calendar_id@">Manage Item Types</a></if>
+</ul>
 </td>
 <td valign=top>
 @cal_stuff@
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 -r1.6 -r1.7
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	14 Mar 2002 05:10:52 -0000	1.6
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	18 Mar 2002 18:20:43 -0000	1.7
@@ -26,6 +26,10 @@
     set force_calendar_id [lindex $list_of_calendar_ids 0]
 }
 
+# permissions
+set create_p [ad_permission_p $force_calendar_id cal_item_create]
+set admin_p [ad_permission_p $force_calendar_id calendar_admin]
+
 # set up some vars
 if {[empty_string_p $date]} {
     if {[empty_string_p $julian_date]} {