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.10 -r1.11
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 1 Apr 2002 23:46:00 -0000 1.10
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 5 Apr 2002 19:06:36 -0000 1.11
@@ -58,7 +58,7 @@
set current_date $date
set date_format "YYYY-MM-DD HH24:MI"
-set return_url "../"
+set return_url "[ns_conn url]?[ns_conn query]"
set encoded_return_url [ns_urlencode $return_url]
set cal_nav [dt_widget_calendar_navigation "" $view $date "page_num=$page_num"]
@@ -70,8 +70,8 @@
}
if {$create_p} {
- set hour_template "\$hour"
- set item_add_template "ADD"
+ set hour_template "\$hour"
+ set item_add_template "ADD"
} else {
set hour_template "\$hour"
set item_add_template ""
@@ -104,7 +104,7 @@
if {$view == "list"} {
set cal_stuff [calendar::list_display \
- -item_template {$item} \
+ -item_template {$item} \
-date $current_date \
-calendar_id_list $list_of_calendar_ids]
}