Index: openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-assign-add-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	3 Oct 2003 22:21:45 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	10 Oct 2003 22:51:04 -0000	1.5
@@ -1,3 +1,13 @@
+ns_log notice task assign add edit page
+set mypage [ns_getform]
+if {[string equal "" $mypage]} {
+    ns_log notice no form was submitted on my page
+} else {
+    ns_log notice the following form was submitted on my page
+    ns_set print $mypage
+}
+
+
 ad_page_contract {
 
     Form to add and edit assignments to a task
@@ -17,6 +27,7 @@
 } {
 
     my_key:integer,optional
+    {process_task_id:multiple,optional ""}
     revision_has_dependencies:multiple,optional
     revision_no_dependencies:multiple,optional
     task_id:multiple,optional
@@ -37,16 +48,7 @@
 
 # --------------------------------------------------------------- #
 
-ns_log notice task assign add edit page
-set mypage [ns_getform]
-if {[string equal "" $mypage]} {
-    ns_log notice no form was submitted on my page
-} else {
-    ns_log notice the following form was submitted on my page
-    ns_set print $mypage
-}
 
-
 if {![exists_and_not_null revision_no_dependencies]} {
     set revision_no_dependencies ""
 }
@@ -60,6 +62,9 @@
 
 # hack to get around lack of multiple hidden support with ad_form
 
+set process_task_id_pass [string map {"-" " "} $process_task_id]
+set process_task_id $process_task_id_pass
+
 set task_revision_dep_pass $revision_has_dependencies
 set task_revision_dep_pass [string map {"-" " "} $task_revision_dep_pass]
 set revision_has_dependencies $task_revision_dep_pass
@@ -115,6 +120,8 @@
 append roles_lofl [db_list_of_lists get_roles { }]
 
 
+set process_task_id_pass [string map {" " "-"} $process_task_id]
+
 set task_revision_dep_pass $revision_has_dependencies
 set task_revision_dep_pass [string map {" " "-"} $task_revision_dep_pass]
 
@@ -125,6 +132,9 @@
     
     my_key:key(acs_object_id_seq)
 
+    {process_task_id:text(hidden)
+        {value $process_task_id_pass}}
+
     {revision_has_dependencies:text(hidden)
         {value $task_revision_dep_pass}}
 
@@ -142,6 +152,7 @@
 
 } -new_data {
 
+    ns_log Notice "new_data"
     #role_id 
     #party_id
 
@@ -215,6 +226,7 @@
         
 } -edit_data {
 
+    ns_log Notice "edit_data"
     # do something
     #role_id 
     #party_id
@@ -297,18 +309,37 @@
 
     set task_revisions $revision_has_dependencies
 
-    ad_returnredirect "dependency-add-edit?[export_vars -url {task_revisions:multiple project_item_id}]"
+    ad_returnredirect "dependency-add-edit?[export_vars -url {task_revisions:multiple project_item_id process_task_id:multiple}]"
     ad_script_abort
 }
 
 
 # we create a terrible monster array
 
+ns_log Notice "process_task_id: $process_task_id "
+
+set index 0
+
 foreach tiid $task_id {
 
     set roles_values [db_list_of_lists get_current_roles { }]
     set users_values [db_list_of_lists get_current_users { }]
 
+    if {[exists_and_not_null process_task_id]} {
+        set ptid [lindex $process_task_id $index]
+
+        set roles_values [list]
+        set users_values [list]
+
+        db_foreach get_process_roles_assignments { } {
+            lappend roles_values $rid
+            lappend users_values $pid
+        }
+
+        ns_log Notice "roles_values: $roles_values"
+        ns_log Notice "users_values: $users_values"
+    }
+
     set users_length [string length $users_values]
     set roles_length [string length $roles_values]
 
@@ -339,6 +370,8 @@
                 ] 
         
     }
+
+    incr index
 }