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.21 -r1.4.2.22
--- openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	17 Sep 2004 23:13:42 -0000	1.4.2.21
+++ openacs-4/contrib/packages/project-manager/tcl/task-procs.tcl	23 Sep 2004 21:46:41 -0000	1.4.2.22
@@ -1866,3 +1866,76 @@
                 ORDER BY
                 fullname"]
 }
+
+
+ad_proc -public pm::task::process_task_info {
+    {-process_id:required}
+    {-one_line_array:required}
+    {-description_array:required}
+    {-estimated_hours_work_array:required}
+    {-estimated_hours_work_min_array:required}
+    {-estimated_hours_work_max_array:required}
+    {-dependency_array:required}
+    {-tasks_list:required}
+} {
+    Sets a bunch of information in a set of arrays on all
+    process tasks for a given process
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-09-23
+    
+    @param process_id
+
+    @param one_line_array
+
+    @param description_array
+
+    @param estimated_hours_work_array
+
+    @param estimated_hours_work_min_array
+
+    @param estimated_hours_work_max_array
+
+    @param dependency_array
+
+    @param tasks_list
+
+    @return 
+    
+    @error 
+} {
+
+    # set variables in calling environment, using names passed in
+    upvar 1 $one_line_array                 one_line_arr
+    upvar 1 $description_array              description_arr
+    upvar 1 $estimated_hours_work_array     estimated_hours_work_arr
+    upvar 1 $estimated_hours_work_min_array estimated_hours_work_min_arr
+    upvar 1 $estimated_hours_work_max_array estimated_hours_work_max_arr
+    upvar 1 $dependency_array               dependency_arr
+    upvar 1 $tasks_list                     process_tasks_l
+
+    db_foreach get_process_tasks { } {
+        set one_line_arr($process_tid)                 $one_line
+        set description_arr($process_tid)              $description
+        set estimated_hours_work_arr($process_tid)     $estimated_hours_work
+        set estimated_hours_work_min_arr($process_tid) $estimated_hours_work_min
+        set estimated_hours_work_max_arr($process_tid) $estimated_hours_work_max
+        set dependency_arr($process_tid)               $process_parent_task
+
+        # make sure that we don't have empty values for estimated
+        # hours work
+        if {[empty_string_p $estimated_hours_work_arr($process_tid)]} {
+            set estimated_hours_work_arr($process_tid) 0
+        }
+        if {[empty_string_p $estimated_hours_work_min_arr($process_tid)]} {
+            set estimated_hours_work_min_arr($process_tid) 0
+        }
+        if {[empty_string_p $estimated_hours_work_max_arr($process_tid)]} {
+            set estimated_hours_work_max_arr($process_tid) 0
+        }
+
+
+        lappend process_tasks_l $process_tid
+    }
+    
+}