Index: openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl,v diff -u -r1.30 -r1.31 --- openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl 7 Oct 2007 22:36:59 -0000 1.30 +++ openacs-4/packages/evaluation/www/admin/tasks/task-add-edit.tcl 9 Jun 2009 02:55:24 -0000 1.31 @@ -68,11 +68,18 @@ if { !$new_p } { + db_foreach select_grade_types { *SQL* } { + if {[string match "#*#" $grade_name]} { + set grade_name [lang::message::lookup [ad_conn locale] \ + [string trim $grade_name "#"]] + } + lappend grade_type_options [list $grade_name $grade_item_id] + } ad_form -extend -name task -form { {grade_item_id:text {label "[_ evaluation.Assignment_Type]"} {widget select} - {options "[db_list_of_lists select_grade_types { *SQL* }]"} + {options "$grade_type_options"} {value $grade_id} } }