Index: openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql	9 Sep 2001 07:18:46 -0000	1.3
+++ openacs-4/packages/calendar/tcl/cal-item-procs-postgresql.xql	15 Sep 2001 07:25:27 -0000	1.4
@@ -60,8 +60,8 @@
 <fullquery name="cal_item_create.insert_timespan">      
       <querytext>
 	select timespan__new (    
-					to_date(:start_date,:date_format),
-					to_date(:end_date,:date_format)
+					timestamp(:start_date),
+					timestamp(:end_date)
 	) 
 
       </querytext>
Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	23 Apr 2001 23:09:38 -0000	1.1
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	15 Sep 2001 07:26:54 -0000	1.2
@@ -29,7 +29,6 @@
     # extract from event_time
     set hours [lindex $event_time 3]
     set minutes [lindex $event_time 1]
-    
 
     if {$hours < 10} {
 	set hours "0$hours"
@@ -52,7 +51,14 @@
     set year   [lindex $event_date 5]
     set day    [lindex $event_date 7]
     set month  [lindex $event_date 9]
+    
+    if {$month < 10} {
+	set month "0$month"
+    }
 
+    if {$day < 10} {
+	set day "0$day"
+    }
     return "$year-$month-$day"
 
 }