Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 29 Mar 2002 18:52:51 -0000 1.9
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 1 Apr 2002 23:46:00 -0000 1.10
@@ -58,11 +58,13 @@
set current_date $date
set date_format "YYYY-MM-DD HH24:MI"
+set return_url "../"
+set encoded_return_url [ns_urlencode $return_url]
set cal_nav [dt_widget_calendar_navigation "" $view $date "page_num=$page_num"]
if {$create_p} {
- set item_template "\$item"
+ set item_template "\$item"
} else {
set item_template "\$item"
}
@@ -86,6 +88,7 @@
if {$view == "week"} {
set cal_stuff [calendar::one_week_display \
-item_template $item_template \
+ -day_template "\$day - \$pretty_date" \
-date $current_date \
-calendar_id_list $list_of_calendar_ids]
}