Index: openacs.org-dev/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/calendar/www/cal-item-new.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/calendar/www/cal-item-new.tcl	9 Jul 2002 17:35:02 -0000	1.1.1.1
+++ openacs.org-dev/packages/calendar/www/cal-item-new.tcl	8 Oct 2002 15:46:58 -0000	1.1.1.2
@@ -3,7 +3,7 @@
     
     Creating a new Calendar Item
     
-    @author Ben Adida (ben@openforce)
+    @author Ben Adida (ben@openforce.net)
     @creation-date May 29, 2002
     @cvs-id $Id$
 } {
@@ -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
     }
@@ -68,7 +68,7 @@
     # Set up the datetimes
     set start_date [calendar::to_sql_datetime -date $date -time $start_time -time_p $time_p]
     set end_date [calendar::to_sql_datetime -date $date -time $end_time -time_p $time_p]
-    
+
     set cal_item_id [calendar::item::new -start_date $start_date \
             -end_date $end_date \
             -name $title \