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.6 -r1.7
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	18 Feb 2002 13:52:26 -0000	1.6
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl	25 Feb 2002 19:31:45 -0000	1.7
@@ -13,7 +13,11 @@
 set view $config(default_view)
 set list_of_calendar_ids $config(calendar_id)
 
-# ad_return_complaint 1 "$cf"
+if {[llength $list_of_calendar_ids] > 1} {
+    set force_calendar_id [calendar_have_private_p -return_id 1 [ad_conn user_id]]
+} else {
+    set force_calendar_id [lindex $list_of_calendar_ids 0]
+}
 
 # set up some vars
 set date [ns_queryget date]
@@ -28,7 +32,7 @@
     
     set cal_stuff [calendar::one_day_display \
             -item_template {<a href=calendar/?action=edit&cal_item_id=$item_id>$item</a>} \
-            -hour_template "<a href=calendar/?date=$current_date&action=add&return_url=../&start_time=\$start_time&end_time=\$start_time>\$hour</a>" \
+            -hour_template "<a href=calendar/?date=$current_date&action=add&force_calendar_id=$force_calendar_id&return_url=../&start_time=\$start_time&end_time=\$start_time>\$hour</a>" \
             -date $current_date -start_hour 7 -end_hour 22 \
             -calendar_id_list $list_of_calendar_ids]
     
@@ -46,7 +50,7 @@
             -item_template {<a href=calendar/?action=edit&cal_item_id=$item_id>$item</a>} \
             -day_template "<a href=?julian_date=\$julian_date>\$day_number</a>" \
             -date $current_date \
-            -item_add_template "<a href=calendar/?action=add&start_time=&end_time=&julian_date=\$julian_date>ADD</a>" \
+            -item_add_template "<a href=calendar/?action=add&start_time=&end_time=&force_calendar_id=$force_calendar_id&julian_date=\$julian_date>ADD</a>" \
             -calendar_id_list $list_of_calendar_ids]
 }