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.4 -r1.4.2.5
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	9 Jul 2004 17:38:28 -0000	1.4.2.4
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	12 Jul 2004 17:34:21 -0000	1.4.2.5
@@ -1671,6 +1671,42 @@
 }
 
 
+ad_proc -public pm::task::estimated_hours_work {
+    -hours_work:required
+    -hours_work_min:required
+    -hours_work_max:required
+} {
+    Displays the total estimated hours work in a consistent format
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-02
+    
+    @param hours_work
+
+    @param hours_work_min
+
+    @param hours_work_max
+
+    @return 
+    
+    @error 
+} {
+    set use_uncertain_completion_times_p [parameter::get -parameter "UseUncertainCompletionTimesP" -default "1"]
+    
+    if {[string equal $use_uncertain_completion_times_p 1]} {
+        if {[string equal $hours_work_min $hours_work_max]} {
+            set display_value "$hours_work_min"
+        } else {
+            set display_value "$hours_work_min - $hours_work_max"
+        }
+    } else {
+        set display_value "$estimated_hours_work"
+    }
+    
+    return $display_value
+}
+
+
 ad_proc -public pm::task::assignee_email_list {
     -task_item_id:required
 } {