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.2 -r1.3 --- openacs-4/contrib/packages/project-manager/www/task-constraint-add-edit.tcl 8 Aug 2003 22:24:14 -0000 1.2 +++ openacs-4/contrib/packages/project-manager/www/task-constraint-add-edit.tcl 13 Aug 2003 18:56:29 -0000 1.3 @@ -40,6 +40,8 @@ set task_revisions [split $task_revisions_list " "] } +# get a parent project +set project_item_id [db_string get_parent_project { }] # terminology set project_term [parameter::get -parameter "ProjectName" -default "Project"] @@ -53,16 +55,10 @@ # permissions set title "Add $task_term_lower constraints" -set context_bar [ad_context_bar] -# set context_bar [ad_context_bar [list "one?item_id=$project_item_id&project_id=$project_id" "One $project_term"] "New $task_term"] +set context_bar [ad_context_bar [list "one?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 - -ns_log Notice "TaskRev: $task_revisions" - -set project_item_id [db_string get_parent_project { }] - ad_form -name add_edit -form { constraint_id:key(pm_task_constraint_seq)