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.26.2.4 -r1.26.2.5
--- openacs-4/packages/calendar/www/cal-item-new.tcl	28 Jun 2005 12:41:26 -0000	1.26.2.4
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	4 Jul 2005 11:50:19 -0000	1.26.2.5
@@ -163,8 +163,7 @@
 	calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
     } 
     
-    #set date [template::util::date::from_ansi $date]
-    set date $ansi_date
+    set date [calendar::from_sql_datetime -sql_date $ansi_date  -format "YYY-MM-DD"]
     set repeat_p 0
     if {[info exists start_time] && ![empty_string_p $start_time] && $start_time != 0} {
 	# Set the start time