Index: openacs-4/contrib/packages/project-manager/www/task-constraint-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-constraint-add-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/contrib/packages/project-manager/www/task-constraint-add-edit.tcl	21 Aug 2003 22:34:43 -0000	1.4
+++ openacs-4/contrib/packages/project-manager/www/task-constraint-add-edit.tcl	23 Aug 2003 00:24:34 -0000	1.5
@@ -20,6 +20,7 @@
     task_revisions_list:optional
     const_type:array,optional
     const_task_id:array,optional
+    {project_item_id:integer ""}
 
 } -properties {
 
@@ -40,8 +41,10 @@
     set task_revisions [split $task_revisions_list " "]
 }
 
-# get a parent project
-set project_item_id [db_string get_parent_project { }]
+if {[empty_string_p $project_item_id]} {
+    # get a parent project
+    set project_item_id [db_string get_parent_project { }]
+}
 
 # terminology
 set project_term    [parameter::get -parameter "ProjectName" -default "Project"]
@@ -55,7 +58,7 @@
 # permissions
 
 set title "Add $task_term_lower constraints"
-set context_bar [ad_context_bar [list "one?item_id=$project_item_id" "One $project_term"] "New $task_term constraint"]
+set context_bar [ad_context_bar [list "one?project_item_id=$project_item_id" "One $project_term"] "New $task_term constraint"]
 permission::require_permission -party_id $user_id -object_id $package_id -privilege create