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.5 -r1.6
--- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl 11 Feb 2002 03:35:14 -0000 1.5
+++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl 18 Feb 2002 13:52:26 -0000 1.6
@@ -34,5 +34,28 @@
}
+if {$view == "week"} {
+ set cal_stuff [calendar::one_week_display \
+ -item_template {$item} \
+ -date $current_date \
+ -calendar_id_list $list_of_calendar_ids]
+}
+if {$view == "month"} {
+ set cal_stuff [calendar::one_month_display \
+ -item_template {$item} \
+ -day_template "\$day_number" \
+ -date $current_date \
+ -item_add_template "ADD" \
+ -calendar_id_list $list_of_calendar_ids]
+}
+
+if {$view == "list"} {
+ set cal_stuff [calendar::list_display \
+ -item_template {$item} \
+ -date $current_date \
+ -calendar_id_list $list_of_calendar_ids]
+}
+
+
ad_return_template