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.12 -r1.13
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl 29 Mar 2002 18:52:51 -0000 1.12
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl 16 Apr 2002 05:16:29 -0000 1.13
@@ -48,11 +48,7 @@
set current_date $date
set date_format "YYYY-MM-DD HH24:MI"
-if {$create_p} {
- set item_template "\$item"
-} else {
- set item_template "\$item"
-}
+set item_template "\$item"
if {$create_p} {
set hour_template "\$hour"
@@ -69,15 +65,17 @@
-item_template $item_template \
-hour_template $hour_template \
-date $current_date -start_hour 7 -end_hour 22 \
- -calendar_id_list $list_of_calendar_ids]
+ -calendar_id_list $list_of_calendar_ids \
+ -url_stub_callback "calendar_portlet_display::get_url_stub"]
}
if {$view == "week"} {
set cal_stuff [calendar::one_week_display \
-item_template $item_template \
-date $current_date \
- -calendar_id_list $list_of_calendar_ids]
+ -calendar_id_list $list_of_calendar_ids \
+ -url_stub_callback "calendar_portlet_display::get_url_stub"]
}
if {$view == "month"} {
@@ -86,14 +84,16 @@
-day_template "\$day_number" \
-date $current_date \
-item_add_template $item_add_template \
- -calendar_id_list $list_of_calendar_ids]
+ -calendar_id_list $list_of_calendar_ids \
+ -url_stub_callback "calendar_portlet_display::get_url_stub"]
}
if {$view == "list"} {
set cal_stuff [calendar::list_display \
- -item_template {$item} \
+ -item_template $item_template \
-date $current_date \
- -calendar_id_list $list_of_calendar_ids]
+ -calendar_id_list $list_of_calendar_ids \
+ -url_stub_callback "calendar_portlet_display::get_url_stub"]
}