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.10 -r1.11
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	23 Aug 2003 00:24:34 -0000	1.10
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	26 Aug 2003 00:05:58 -0000	1.11
@@ -31,6 +31,7 @@
     percent_complete:array,optional
     estimated_hours_work_min:array,optional
     estimated_hours_work_max:array,optional
+    {skip_constraints ""}
 } -properties {
 
     context_bar:onevalue
@@ -142,6 +143,10 @@
 	{value $number}
     }
 
+    {skip_constraints_p:text(checkbox)
+        {label "Skip adding constraints?"}
+        {value "t"}}
+
 } -on_submit {
 
     set user_id [ad_conn user_id]
@@ -154,12 +159,19 @@
         lappend task_revisions [db_exec_plsql new_task_item { *SQL* }]
     }
 
+    project_manager::project::compute_parent_status $project_item_id
+
 } -edit_data {
 
 } -select_query_name task_query -after_submit {
-    
-    ad_returnredirect "task-constraint-add-edit?[export_vars -url {task_revisions:multiple project_item_id}]"
-    ad_script_abort
+
+    if {[string equal $skip_constraints_p "t"]} {
+        ad_returnredirect "one?[export_vars -url {project_item_id}]"
+        ad_script_abort
+    } else {
+        ad_returnredirect "task-constraint-add-edit?[export_vars -url {task_revisions:multiple project_item_id}]"
+        ad_script_abort
+    }
 }
 
 for {set i 0} {$i <= $number} {incr i} {