Index: openacs-4/packages/calendar/www/view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/calendar/www/view.tcl 17 May 2003 10:21:14 -0000 1.10 +++ openacs-4/packages/calendar/www/view.tcl 26 May 2003 10:00:10 -0000 1.11 @@ -60,15 +60,6 @@ set next_link ">" } } - - set cal_stuff [calendar::one_day_display \ - -prev_nav_template $previous_link \ - -next_nav_template $next_link \ - -item_template $item_template \ - -hour_template $hour_template \ - -date $date -start_hour 7 -end_hour 22 \ - -calendar_id_list $calendar_list] - } if {$view == "week"} { @@ -94,15 +85,6 @@ set next_link ">" } } - - set cal_stuff [calendar::one_week_display \ - -item_template $item_template \ - -day_template "\$day - \$pretty_date     ([_ calendar.Add_Item])" \ - -date $date \ - -calendar_id_list $calendar_list \ - -prev_week_template $previous_link \ - -next_week_template $next_link] - } if {$view == "month"} { @@ -129,14 +111,6 @@ } } - set cal_stuff [calendar::one_month_display \ - -item_template "$item_template" \ - -day_template "\$day_number" \ - -date $date \ - -item_add_template "$item_add_template" \ - -calendar_id_list $calendar_list \ - -prev_month_template $previous_link \ - -next_month_template $next_link] } if {$view == "list"} { @@ -145,15 +119,7 @@ set ansi_year [lindex $ansi_list 0] set ansi_month [string trimleft [lindex $ansi_list 1] "0"] set ansi_day [string trimleft [lindex $ansi_list 2] "0"] - set end_date [dt_julian_to_ansi [expr [dt_ansi_to_julian $ansi_year $ansi_month $ansi_day ] + 1]] - set cal_stuff [calendar::list_display \ - -item_template $item_template \ - -start_date $start_date \ - -end_date $end_date \ - -date $date \ - -calendar_id_list $calendar_list \ - -sort_by $sort_by \ - -url_template "view?view=list&sort_by=\$order_by"] + set end_date [dt_julian_to_ansi [expr [dt_ansi_to_julian $ansi_year $ansi_month $ansi_day ] + 31]] } set cal_nav [dt_widget_calendar_navigation "view" $view $date "calendar_list="]