|
| |
24 |
24 |
} |
|
| |
25 |
25 |
|
|
| |
26 |
26 |
set task_form_vars [list task_id names assignee_id task_prescribed task due_date status priority description comment creator] |
|
| |
27 |
|
set export_vars {} |
|
| |
|
27 |
set export_vars [list] |
|
| |
28 |
28 |
foreach {key value} $export_vars_list { |
|
| |
29 |
29 |
if { [lsearch $task_form_vars $key] < 0 } { |
|
| |
30 |
30 |
set $key $value |
|
|
| |
97 |
97 |
append assign_parties_options " [db_list_of_lists get_all_users { }]" |
|
| |
98 |
98 |
|
|
| |
99 |
99 |
|
|
| |
100 |
|
set names {} |
|
| |
|
100 |
set names [list] |
|
| |
101 |
101 |
foreach object $object_id { |
|
| |
102 |
102 |
lappend names "<a href=\"[tasks::object_url -object_id $object]\">[db_string get_acs_object_name { select acs_object__name(:object) }]</a>" |
|
| |
103 |
103 |
} |