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