Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.tcl,v
diff -u -r1.27.2.10 -r1.27.2.11
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	16 Sep 2004 19:35:52 -0000	1.27.2.10
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	23 Sep 2004 21:46:42 -0000	1.27.2.11
@@ -152,30 +152,17 @@
     # modify the interface a little bit
     set using_process_p t
 
-    db_foreach get_process_tasks { } {
-        set one_line_v($process_tid)                 $one_line
-        set description_v($process_tid)              $description
-        set estimated_hours_work_v($process_tid)     $estimated_hours_work
-        set estimated_hours_work_min_v($process_tid) $estimated_hours_work_min
-        set estimated_hours_work_max_v($process_tid) $estimated_hours_work_max
-        set dependency_v($process_tid)               $process_parent_task
+    # get all the process task info
+    pm::task::process_task_info \
+        -process_id                      $process_id \
+        -one_line_array                  one_line_v \
+        -description_array               description_v \
+        -estimated_hours_work_array      estimated_hours_work_v \
+        -estimated_hours_work_min_array  estimated_hours_work_min_v \
+        -estimated_hours_work_max_array  estimated_hours_work_max_v \
+        -dependency_array                dependency_v \
+        -tasks_list                      process_tasks
 
-        # make sure that we don't have empty values for estimated
-        # hours work
-        if {[empty_string_p $estimated_hours_work_v($process_tid)]} {
-            set estimated_hours_work_v($process_tid) 0
-        }
-        if {[empty_string_p $estimated_hours_work_min_v($process_tid)]} {
-            set estimated_hours_work_min_v($process_tid) 0
-        }
-        if {[empty_string_p $estimated_hours_work_max_v($process_tid)]} {
-            set estimated_hours_work_max_v($process_tid) 0
-        }
-
-
-        lappend process_tasks $process_tid
-    }
-
     set number [llength $process_tasks]
 }
 
@@ -190,7 +177,8 @@
 
 # we sort this because we want to keep the ordering
 # consistent. Otherwise, we can run into problems when editing
-# multiple tasks. Their values can get crossed.
+# multiple tasks. Their values can get crossed, causing bad things
+# to happen
 set task_id [lsort -integer $task_id]
 
 # --------------------------------------------------------------- #