Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/www/cal-item-new.tcl 10 Sep 2002 22:22:31 -0000 1.3
+++ openacs-4/packages/calendar/www/cal-item-new.tcl 21 Sep 2002 15:52:43 -0000 1.4
@@ -22,7 +22,7 @@
set calendar_list [calendar::calendar_list]
if {[llength $calendar_list] > 1} {
- set return_url [ns_urlencode "cal-item-new?date=$date&start_time=$start_time&end_time=$end_time"]
+ set return_url [ns_urlencode "cal-item-new?date=[ns_urlencode $date]&start_time=$start_time&end_time=$end_time"]
ad_returnredirect "calendar-choose?return_url=$return_url"
ad_script_abort
}
Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/calendar/www/view.tcl 10 Sep 2002 22:22:31 -0000 1.6
+++ openacs-4/packages/calendar/www/view.tcl 21 Sep 2002 15:52:43 -0000 1.7
@@ -42,7 +42,7 @@
if {$view == "week"} {
set cal_stuff [calendar::one_week_display \
-item_template $item_template \
- -day_template "\$day - \$pretty_date (Add Item)" \
+ -day_template "\$day - \$pretty_date (Add Item)" \
-date $date \
-calendar_id_list $calendar_list \
-prev_week_template "<" \