gustafn
committed
on 17 Aug 16
- quote subst-ed values
openacs-4/.../www/admin/index.tcl (+3 -3)
17 17 bug_tracker::get_pretty_names -array pretty_names
18 18
19 19 set versions_p [bug_tracker::versions_p]
20 20
21 21 set context_bar [ad_context_bar]
22 22
23 23 db_1row project_info { } -column_array project
24 24
25 25 set workflow_id [bug_tracker::bug::get_instance_workflow_id]
26 26
27 27 set project(maintainer_url) [acs_community_member_url -user_id $project(maintainer)]
28 28
29 29 set project_edit_url "project-edit"
30 30 set project_maintainer_edit_url "project-edit"
31 31 set versions_edit_url "versions"
32 32 set categories_edit_url "categories"
33 33 set permissions_edit_url "permissions"
34 34 set workflow_url [site_node::get_package_url -package_key workflow]
35 35 set workflow_edit_url [export_vars -base "${workflow_url}admin/workflow-edit" {workflow_id}]
36 36 set parameters_edit_url [export_vars -base /shared/parameters {
37       { return_url [ad_return_url] }
38       { package_id [ad_conn package_id] }
  37     { return_url "[ad_return_url]" }
  38     { package_id "[ad_conn package_id]" }
39 39 }]
40 40 set severity_codes_edit_url "severity-codes"
41 41 set priority_codes_edit_url "priority-codes"
42 42 set workflow_pretty_name [workflow::get_element -element pretty_name \
43 43                              -workflow_id $workflow_id]
44 44 db_multirow -extend { edit_url delete_url maintainer_url view_bugs_url } components components {} {
45 45     set edit_url [export_vars -base component-ae { component_id }]
46 46     if { $num_bugs == 0 } {
47 47         set delete_url [export_vars -base component-delete { component_id }]
48 48         set view_bugs_url {}
49 49     } else {
50 50         set view_bugs_url [export_vars -base ../ { { filter.component_id $component_id } { filter.status any } }]
51 51         set delete_url {}
52 52     }
53 53     set maintainer_url [acs_community_member_url -user_id $maintainer]
54 54 }
55 55
56 56 set component_add_url "component-ae"
57 57 set access_edit_url "access-policy-edit"
58 58 set access_policy_name [lindex [bug_tracker::access_policy] 0]