Index: openacs-4/contrib/packages/project-manager/www/dependency-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/dependency-add-edit.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/contrib/packages/project-manager/www/dependency-add-edit.tcl 17 Sep 2003 22:20:59 -0000 1.4 +++ openacs-4/contrib/packages/project-manager/www/dependency-add-edit.tcl 18 Sep 2003 23:33:54 -0000 1.5 @@ -33,6 +33,16 @@ # --------------------------------------------------------------- # +ns_log notice depedency 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 +} + + # HACK because there isn't a facility for exporting multiple hidden # form variables in ad_form if {[info exists task_revisions_list]} { @@ -47,7 +57,7 @@ } if {![exists_and_not_null task_revisions]} { - project_manager::project::compute_parent_status $project_item_id + project_manager::project::compute_parent_status $project_item_id ad_returnredirect "one?[export_url_vars project_item_id]" } @@ -64,6 +74,7 @@ set title "Add $task_term_lower dependencys" set context_bar [ad_context_bar [list "one?project_item_id=$project_item_id" "One $project_term"] "New $task_term dependency"] + permission::require_permission -party_id $user_id -object_id $package_id -privilege create @@ -112,7 +123,7 @@ lappend options "{\"$dependencys(description)\" $dependencys(short_name)}" } -# set up list of tasks that this task can be dependencyrained by +# set up list of tasks that this task can be depend on set dependency_keys [list]