Index: openacs-4/contrib/packages/project-manager/www/process-dependency-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/process-dependency-add-edit.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/contrib/packages/project-manager/www/process-dependency-add-edit.tcl 26 Jan 2004 15:39:40 -0000 1.5 +++ openacs-4/contrib/packages/project-manager/www/process-dependency-add-edit.tcl 12 Mar 2004 13:44:45 -0000 1.6 @@ -1,4 +1,4 @@ -ns_log notice depedency page +ns_log notice it's my page! set mypage [ns_getform] if {[string equal "" $mypage]} { ns_log notice no form was submitted on my page @@ -8,7 +8,6 @@ } - ad_page_contract { Form to add task dependencies @@ -60,7 +59,6 @@ if {![exists_and_not_null use_dependency]} { - ns_log Notice "Redirecting" ad_returnredirect "process-one?[export_url_vars process_id]" ad_script_abort } @@ -108,15 +106,16 @@ } -new_data { - set process_task_id_pass $process_task_id - set process_task_id_pass [string map {"-" " "} $process_task_id_pass] - set process_task_id $process_task_id_pass + # convert from our hack back to a list + set process_task_id [string map {"-" " "} $process_task_id] foreach tsk_id $process_task_id { - ns_log Notice "new: deleting dependency for task $tsk_id" db_dml delete_dependency { } } + # convert from our hack back to a list + set use_dependency [string map {"-" " "} $use_dependency] + foreach tr $use_dependency { set type_id $dependency_type($tr) @@ -135,7 +134,6 @@ set process_task_id $process_task_id_pass foreach tsk_id $process_task_id { - ns_log Notice "edit: deleting dependency for task $tsk_id" db_dml delete_dependency { } } @@ -193,8 +191,6 @@ } } - ns_log Notice "parent: $tasks(parent_task_id)" - append add_edit_definition " {task_id.$tasks(task_id):text(hidden) {value {$tasks(task_id)}}