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 -------------------------