Index: openacs-4/packages/tasks/lib/task-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/lib/task-form.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/tasks/lib/task-form.tcl 13 Mar 2006 07:38:41 -0000 1.2 +++ openacs-4/packages/tasks/lib/task-form.tcl 29 Mar 2006 19:29:27 -0000 1.3 @@ -129,21 +129,27 @@ - +if { ![exists_and_not_null standard_tasks_list] } { + set params [split [parameter::get -parameter DefaultTasks -default ""] ";"] + set standard_tasks_list [list [list "" ""]] + foreach param $params { + set param [string trim $param] + set param_tran [_ $param] + if { ![string match "MESSAGE KEY MISSING*" $param_tran] } { + set param $param_tran + } + lappend standard_tasks_list [list $param $param] + } +} if { [exists_and_not_null standard_tasks_list] } { # the calling package has provided a list of default tasks # to use for this package. Thus we set up a standard task list - set params [split [parameter::get -parameter DefaultTasks -default ""] ";"] - set opts [list [list "" ""]] - foreach param $params { - lappend opts [list [_ $param] [_ $param]] - } append form_elements { {task_prescribed:text(select),optional {label "[_ tasks.Standard_Task]"} - {options $opts} + {options $standard_tasks_list} } {task:text(text),optional {label "[_ tasks.Custom_Task]"}