Index: openacs-4/contrib/packages/project-manager/www/tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/tasks.tcl,v
diff -u -r1.1.2.9 -r1.1.2.10
--- openacs-4/contrib/packages/project-manager/www/tasks.tcl	6 Mar 2004 00:29:24 -0000	1.1.2.9
+++ openacs-4/contrib/packages/project-manager/www/tasks.tcl	12 Mar 2004 00:20:24 -0000	1.1.2.10
@@ -186,11 +186,10 @@
     set latest_finish_pretty [lc_time_fmt $latest_finish "%x"]
 
     if {[exists_and_not_null earliest_start_j]} {
-        if {$earliest_start_j < $today_j} {
-            set slack_time "[expr $latest_start_j - $today_j] days"
-        } else {
-            set slack_time "[expr $latest_start_j - $earliest_start_j] days"
-        }
+        set slack_time [pm::task::slack_time \
+                            -earliest_start_j $earliest_start_j \
+                            -today_j $today_j \
+                            -latest_start_j $latest_start_j]
     } else {
         set slack_time "n/a"
     }