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.25 -r1.26
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	12 Aug 2003 23:41:47 -0000	1.25
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	5 Sep 2003 07:14:16 -0000	1.26
@@ -42,8 +42,37 @@
 if {[empty_string_p $view]} {
     set view $config(default_view)
 }
+
 set list_of_calendar_ids $config(calendar_id)
 
+if {[llength $list_of_calendar_ids] > 1} {
+    set force_calendar_id [calendar_have_private_p -return_id 1 -calendar_id_lis
+			   t $list_of_calendar_ids [ad_conn user_id]]
+} else {
+    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
+if {[empty_string_p $date]} {
+    if {[empty_string_p $julian_date]} {
+        set date [dt_sysdate]
+    } else {
+        set date [db_string select_from_julian "select to_date(:julian_date ,'J') from dual"]
+    }
+}
+
+set current_date $date
+set date_format "YYYY-MM-DD HH24:MI"
+set return_url "[ns_conn url]?[ns_conn query]"
+set encoded_return_url [ns_urlencode $return_url]
+
+set list_of_calendar_ids $config(calendar_id)
+
 set base_url [calendar_portlet_display::get_url_stub $list_of_calendar_ids]
 
 set scoped_p $config(scoped_p)
@@ -53,6 +82,14 @@
     set show_calendar_name_p 0
 }
 
+if {$create_p} {
+    set hour_template "<a href=calendar/cal-item-new?date=$current_date&start_time=\$localized_day_current_hour>\$localized_day_current_hour</a>"
+    set item_add_template " <a href=calendar/cal-item-new?start_time=&time_p=1&end_time=&julian_date=\$julian_date><img align=\"right\" border=0 width=\"7\" height=\"7\" src=\"/shared/images/add.gif\" alt=\"Add Item\"></a>"
+} else {
+    set hour_template "\$hour"
+    set item_add_template ""
+}
+
 set calendar_list [calendar::calendar_list]
 
 ad_return_template