Index: openacs-4/contrib/packages/project-manager/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/one.tcl,v
diff -u -r1.26.2.7 -r1.26.2.8
--- openacs-4/contrib/packages/project-manager/www/one.tcl	6 Feb 2004 17:20:43 -0000	1.26.2.7
+++ openacs-4/contrib/packages/project-manager/www/one.tcl	27 Feb 2004 22:46:13 -0000	1.26.2.8
@@ -205,16 +205,11 @@
     set latest_start_pretty [lc_time_fmt $latest_start "%x"]
     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"
-        }
-    } else {
-        set slack_time "n/a"
-    }
-
+    set slack_time [pm::task::slack_time \
+                        -earliest_start_j $earliest_start_j \
+                        -today_j $today_j \
+                        -latest_start_j $latest_start_j]
+                    
 }
 
 
@@ -316,11 +311,14 @@
     -multirow versions \
     -key item_id \
     -elements {
-        project_name {
-            label "Subject"
+        project_id {
+            label "Version"
             link_url_col item_url
             link_html { title "View this project version" }
         }
+        project_name {
+            label "Subject"
+        }
         planned_end_date {
             label "Deadline"
         }
@@ -346,7 +344,7 @@
 
 db_multirow -extend { item_url } versions project_versions {
 } {
-    set item_url [export_vars -base "one" -override {{project_item_id $item_id}} {project_item_id}]
+    set item_url [export_vars -base "one" -override {{project_item_id $item_id}} {project_id}]
 
     
 }
@@ -358,8 +356,6 @@
 
 db_1row custom_query { } -column_array custom 
 
-
-
 # end of customizations