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.7 -r1.8
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	6 Aug 2003 20:22:18 -0000	1.7
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	7 Aug 2003 23:08:45 -0000	1.8
@@ -20,6 +20,7 @@
     project_item_id:integer,optional
     project_id:integer,optional
     {number:integer "1"}
+    added_tasks:integer,multiple,optional
 
     task_revision_id:integer,optional
     task_id:multiple,integer,optional
@@ -111,19 +112,19 @@
     set peeraddr [ad_conn peeraddr]
 
 } -new_data {
-    
+
+    set task_revisions [list]
     for {set i 1} {$i <= $number} {incr i} {
-        # ns_log Notice "task_title($i) = $task_title($i)"
-        db_exec_plsql new_task_item { *SQL* }
+        lappend task_revisions [db_exec_plsql new_task_item { *SQL* }]
     }
 
 } -edit_data {
 
     db_exec_plsql new_task_revision { *SQL* }
 
 } -select_query_name task_query -after_submit {
-
-    ad_returnredirect "one?item_id=$project_item_id&project_id=$project_id"
+    
+    ad_returnredirect "task-constraint-add-edit?[export_vars -url task_revisions:multiple]"
     ad_script_abort
 }
 
@@ -167,7 +168,7 @@
 
 }
 
-ad_form -extend -name add_edit -form $add_edit_definition -select_query_name task_query
+ad_form -extend -name add_edit -form $add_edit_definition
 
 
 # we are editing?