Index: openacs-4/packages/project-manager/lib/tasks.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/tasks.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/project-manager/lib/tasks.tcl 17 Jun 2005 09:26:59 -0000 1.5 +++ openacs-4/packages/project-manager/lib/tasks.tcl 17 Jun 2005 10:28:10 -0000 1.6 @@ -218,19 +218,19 @@ label "[_ project-manager.number]" link_url_col item_url link_html {title "[_ project-manager.lt_View_this_project_ver]" } - display_template {@tasks.task_item_id@} + display_template {@tasks.task_item_id@} } status_type { label "[_ project-manager.Done_1]" - display_template { + display_template { } } title { label "[_ project-manager.Subject_1]" } parent_task_id { label "[_ project-manager.Dep]" - display_template {@tasks.parent_task_id@ + display_template {@tasks.parent_task_id@ } } priority { @@ -245,7 +245,7 @@ } party_id { label "[_ project-manager.Who]" - display_template { @tasks.first_names@ @tasks.last_name@
+ display_template { @tasks.first_names@ @tasks.last_name@
} } role { @@ -307,11 +307,11 @@ } log_url { label "[_ project-manager.Log]" - display_template {L} + display_template {L} } edit_url { label "[_ acs-kernel.common_Edit]" - display_template {E} + display_template {E} } percent_complete { label "[_ project-manager.Percent_complete]" @@ -390,7 +390,7 @@ } } -db_multirow -extend {item_url earliest_start_pretty earliest_finish_pretty end_date_pretty latest_start_pretty latest_finish_pretty slack_time edit_url log_url hours_remaining days_remaining actual_days_worked my_user_id user_url} tasks tasks {} { +db_multirow -extend {item_url earliest_start_pretty earliest_finish_pretty end_date_pretty latest_start_pretty latest_finish_pretty slack_time edit_url log_url hours_remaining days_remaining actual_days_worked my_user_id user_url base_url} tasks tasks {} { set item_url [export_vars \ -base "task-one" {{task_id $task_item_id}}] @@ -442,6 +442,9 @@ set my_user_id $user_id set user_url [export_vars \ -base "${contacts_url}contact" {{party_id $person_id}}] + + acs_object::get -object_id $task_item_id -array task_array + set base_url [lindex [site_node::get_url_from_object_id -object_id $task_array(package_id)] 0] } # ------------------------- END OF FILE -------------------------