Index: openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/process-task-add-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl	7 Oct 2003 00:15:09 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/www/process-task-add-edit.tcl	8 Oct 2003 20:16:11 -0000	1.5
@@ -34,6 +34,7 @@
 } -properties {
 
     context_bar:onevalue
+    onevalue:multirow
     title:onevalue
     process_id:onevalue
     num:multirow
@@ -67,44 +68,72 @@
 set package_id [ad_conn package_id]
 set user_id    [ad_maybe_redirect_for_registration]
 
-# --------------------
-# permissions and more
-# --------------------
+# -----------
+# permissions
+# -----------
+permission::require_permission -party_id $user_id -object_id $package_id -privilege read
 
-set title "Add a process $task_term_lower"
-set context_bar [ad_context_bar [list "process-one?process_id=$process_id" "One"] "Add tasks"]
-permission::require_permission -party_id $user_id -object_id $package_id -privilege create
-
 # ------------------------------------------------------------
 # if process_task_id is set, then we are editing process tasks
 # ------------------------------------------------------------
 
 
-if {[info exists process_task_id]} {
+if {[exists_and_not_null process_task_id]} {
+
+
+    set edit_p 1
+    set title "Edit a process $task_term_lower"
+    set context_bar [ad_context_bar [list "process-one?process_id=$process_id" "One"] "Edit tasks"]
+    permission::require_permission -party_id $user_id -object_id $package_id -privilege write
+
     set process_tasks [list]
     set i 1
     
     db_foreach get_process_tasks { } {
-        set process_task_v($i)             $process_task_id
-        set one_line.$i                    $one_line
+        set process_task_v($i)             $pti
+        set one_line_v($i)                 $one_line
         set description_v($i)              $description
         set estimated_hours_work_v($i)     $estimated_hours_work
         set estimated_hours_work_min_v($i) $estimated_hours_work_min
         set estimated_hours_work_max_v($i) $estimated_hours_work_max
         
-        lappend process_tasks $process_task_id
+        lappend process_tasks $pti
         incr i
     }
     set number [llength $process_tasks]
+} else {
+
+    set edit_p 0
+    set title "Add a process $task_term_lower"
+    set context_bar [ad_context_bar [list "process-one?process_id=$process_id" "One"] "Add tasks"]
+    permission::require_permission -party_id $user_id -object_id $package_id -privilege create
+    
+    for {set i 1} {$i <= $number} {incr i} {
+        set process_task_v($i)             ""
+        set one_line_v($i)                 ""
+        set description_v($i)              ""
+        set estimated_hours_work_v($i)     ""
+        set estimated_hours_work_min_v($i) ""
+        set estimated_hours_work_max_v($i) ""
+    }
 }
 
 
-template::multirow create num process_task_id 
 
+template::multirow create num process_task_id one_line description work work_min work_max
+
 for {set i 1} {$i <= $number} {incr i} {
 
-    set process_task_id_tmp [db_nextval pm_process_task_seq]
-    template::multirow append num $process_task_id_tmp
+    if {[string equal $edit_p "0"]} {
+        set process_task_id_tmp [db_nextval pm_process_task_seq]
+    } else {
+        set process_task_id_tmp [lindex $process_task_id [expr $i-1]]
+    }
+
+    ns_log Notice "process_task_id_tmp $process_task_id_tmp ($process_task_id)"
+
+    template::multirow append num $process_task_id_tmp $one_line_v($i) $description_v($i) $estimated_hours_work_v($i) $estimated_hours_work_min_v($i) $estimated_hours_work_max_v($i)
+
 }