Index: openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	14 Mar 2002 05:10:52 -0000	1.10
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	29 Mar 2002 17:20:16 -0000	1.11
@@ -19,6 +19,11 @@
     set force_calendar_id [lindex $list_of_calendar_ids 0]
 }
 
+# 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 up some vars
 set date [ns_queryget date]
 if {[empty_string_p $date]} {
@@ -27,30 +32,44 @@
 set current_date $date
 set date_format "YYYY-MM-DD HH24:MI"
 
+if {$create_p} {
+    set item_template "<a href=calendar/?show_cal_nav=0&return_url=[ns_urlencode "../"]&action=edit&cal_item_id=\$item_id>\$item</a>"
+} else {
+    set item_template "\$item"
+}
+
+if {$create_p} {
+    set hour_template "<a href=calendar/?show_cal_nav=0&date=$current_date&force_calendar_id=$force_calendar_id&action=add&return_url=[ns_urlencode "../"]&start_time=\$start_time&end_time=\$end_time>\$hour</a>"
+    set item_add_template "<a href=calendar/?return_url=../&show_cal_nav=0&action=add&force_calendar_id=$force_calendar_id&start_time=&end_time=&julian_date=\$julian_date>ADD</a>"
+} else {
+    set hour_template "\$hour"
+    set item_add_template ""
+}
+
 # big switch on the view var
 if { $view == "day" } {
     
     set cal_stuff [calendar::one_day_display \
-            -item_template {<a href=calendar/?show_cal_nav=0&return_url=../&action=edit&cal_item_id=$item_id>$item</a>} \
-            -hour_template "<a href=calendar/?show_cal_nav=0&date=$current_date&action=add&force_calendar_id=$force_calendar_id&return_url=../&start_time=\$start_time&end_time=\$end_time>\$hour</a>" \
+            -item_template $item_template \
+            -hour_template $hour_template \
             -date $current_date -start_hour 7 -end_hour 22 \
             -calendar_id_list $list_of_calendar_ids]
     
 }
 
 if {$view == "week"} {
     set cal_stuff [calendar::one_week_display \
-            -item_template {<a href=calendar/?show_cal_nav=0&return_url=../&action=edit&cal_item_id=$item_id>$item</a>} \
+            -item_template $item_template \
             -date $current_date \
             -calendar_id_list $list_of_calendar_ids]
 }
 
 if {$view == "month"} {
     set cal_stuff [calendar::one_month_display \
-            -item_template {<a href=calendar/?show_cal_nav=0&return_url=../&action=edit&cal_item_id=$item_id>$item</a>} \
+            -item_template $item_template \
             -day_template "<a href=?julian_date=\$julian_date>\$day_number</a>" \
             -date $current_date \
-            -item_add_template "<a href=calendar/?show_cal_nav=0&action=add&start_time=&end_time=&force_calendar_id=$force_calendar_id&julian_date=\$julian_date>ADD</a>" \
+            -item_add_template $item_add_template \
             -calendar_id_list $list_of_calendar_ids]
 }