Index: openacs-4/packages/logger/lib/projection.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/projection.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/logger/lib/projection.tcl	14 Jan 2004 08:58:12 -0000	1.2
+++ openacs-4/packages/logger/lib/projection.tcl	6 Mar 2004 10:45:00 -0000	1.3
@@ -56,8 +56,10 @@
 set total_time [expr $end_time_epoch - $start_time_epoch]
 set progress_time [expr $time_stamp_epoch - $start_time_epoch]
 
-set total_days [expr $total_time / (60*60*24) + 1]
-set progress_days [expr $progress_time / (60*60*24) + 1]
+# We do a floating point division with round here, because daylight savings
+# may otherwise make the computation off by one
+set total_days [expr round($total_time / (60*60)/24.0) + 1]
+set progress_days [expr round($progress_time / (60*60)/24.0) + 1]
 
 set progress_time_pct [expr round($progress_time*100.0 / $total_time)]
 set progress_time_pct_inverse [expr 100-$progress_time_pct]