| |
1 |
1 |
# packages/project-manager/lib/project-portlet.tcl |
| |
2 |
2 |
# |
| |
3 |
3 |
# Portlet for short project information |
| |
4 |
4 |
# |
| |
5 |
5 |
# @author Malte Sussdorff (sussdorff@sussdorff.de) |
| |
6 |
6 |
# @creation-date 2005-05-01 |
| |
7 |
7 |
# @arch-tag: c502a3ed-d1c0-4217-832a-6ccd86256024 |
| |
8 |
8 |
# @cvs-id $Id$ |
| |
9 |
9 |
|
| |
10 |
10 |
set user_id [auth::require_login] |
| |
11 |
11 |
# Set the link to the permissions page |
| |
12 |
12 |
set permissions_url "[site_node::closest_ancestor_package -package_key subsite]/permissions/one?[export_vars {{object_id $project_item_id}}]" |
| |
13 |
13 |
|
| |
|
14 |
# URL to close the project |
| |
|
15 |
set return_url "rate-project?project_id=$project_id&project_item_id=$project_item_id" |
| |
|
16 |
set vars { project_item_id return_url } |
| |
|
17 |
set close_url "bulk-close?[export_vars $vars]" |
| |
|
18 |
|
| |
|
19 |
#URL to rate this project |
| |
|
20 |
set rate_url "rate-project?project_id=$project_id&project_item_id=$project_item_id" |
| |
|
21 |
|
| |
14 |
22 |
# terminology and other parameters |
| |
15 |
23 |
set project_term [_ project-manager.Project] |
| |
16 |
24 |
set use_goal_p [parameter::get -parameter "UseGoalP" -default "1"] |
| |
17 |
25 |
set use_project_code_p [parameter::get -parameter "UseUserProjectCodesP" -default "1"] |
| |
18 |
26 |
|
| |
19 |
27 |
db_1row project_query { } -column_array project |
| |
20 |
28 |
|
| |
21 |
29 |
set richtext_list [list $project(description) $project(mime_type)] |
| |
22 |
30 |
set project(description) [template::util::richtext::get_property html_value $richtext_list] |
| |
23 |
31 |
set project_root [pm::util::get_root_folder] |
| |
24 |
32 |
|
| |
25 |
33 |
set project(planned_start_date) [lc_time_fmt $project(planned_start_date) "%x"] |
| |
26 |
34 |
set project(planned_end_date) [lc_time_fmt $project(planned_end_date) "%x"] |
| |
27 |
35 |
set project(estimated_finish_date) [lc_time_fmt $project(estimated_finish_date) "%x"] |
| |
28 |
36 |
set project(earliest_finish_date) [lc_time_fmt $project(earliest_finish_date) "%x"] |
| |
29 |
37 |
set project(latest_finish_date) [lc_time_fmt $project(latest_finish_date) "%x"] |
| |
30 |
38 |
set edit_url "[ad_conn package_url]add-edit?[export_url_vars project_item_id]" |
| |
31 |
39 |
set variables(customer_id) $project(customer_id) |
| |
32 |
40 |
|
| |
33 |
41 |
# ------------------ |
