Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/www/view.tcl 7 Sep 2002 20:55:32 -0000 1.3
+++ openacs-4/packages/calendar/www/view.tcl 8 Sep 2002 04:08:16 -0000 1.4
@@ -11,6 +11,7 @@
{date ""}
{julian_date ""}
{calendar_list:multiple ""}
+ {sort_by ""}
}
set package_id [ad_conn package_id]
@@ -44,8 +45,8 @@
-day_template "\$day - \$pretty_date (Add Item)" \
-date $date \
-calendar_id_list $calendar_list \
- -prev_week_template "<" \
- -next_week_template ">"
+ -prev_week_template "<" \
+ -next_week_template ">"
]
}
@@ -56,19 +57,25 @@
-date $date \
-item_add_template "$item_add_template" \
-calendar_id_list $calendar_list \
- -prev_month_template "<" \
- -next_month_template ">"]
+ -prev_month_template "<" \
+ -next_month_template ">"]
}
if {$view == "list"} {
- set sort_by [ns_queryget sort_by]
-
+ set start_date $date
+ set ansi_list [split $date "- "]
+ 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=list&sort_by=\$order_by"]
+ -url_template "view?view=list&sort_by=\$order_by"]
}
set cal_nav [dt_widget_calendar_navigation "view" $view $date "calendar_list="]