Index: openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/task-procs.tcl,v
diff -u -r1.4.2.7 -r1.4.2.8
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	13 Jul 2004 00:01:02 -0000	1.4.2.7
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	15 Jul 2004 20:31:47 -0000	1.4.2.8
@@ -1663,19 +1663,19 @@
                     -hours_work_min $hours_work_min \
                     -hours_work_max $hours_work_max]
     }
-    
-    if {[string equal $use_uncertain_completion_times_p 1]} {
 
-        set display_value1 [expr round($hours_work_min * $percent_complete / 100)]
-        set display_value2 [expr round($hours_work_max * $percent_complete / 100)]
+    if {[string is true $use_uncertain_completion_times_p]} {
 
+        set display_value1 [expr round($hours_work_min * [expr 100 - $percent_complete] / double(100))]
+        set display_value2 [expr round($hours_work_max * [expr 100 - $percent_complete] / double(100))]
+
         if {[string equal $display_value1 $display_value2]} {
             set display_value "$display_value1"
         } else {
             set display_value "$display_value1 - $display_value2"
         }
     } else {
-        set display_value [expr round($hours_work * $percent_complete / 100)]
+        set display_value [expr round($hours_work * [expr 100 - $percent_complete] / double(100))]
     }
 
     return $display_value