Index: openacs-4/packages/evaluation/lib/evaluations-chunk.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/lib/evaluations-chunk.tcl,v diff -u -N -r1.18 -r1.19 --- openacs-4/packages/evaluation/lib/evaluations-chunk.tcl 14 Mar 2008 12:26:40 -0000 1.18 +++ openacs-4/packages/evaluation/lib/evaluations-chunk.tcl 9 Jun 2009 03:04:14 -0000 1.19 @@ -15,6 +15,17 @@ set bulk_actions "" db_1row get_grade_info { *SQL* } +if {[string match "#*#" $grade_plural_name]} { + set grade_plural_name [lang::message::lookup \ + [ad_conn locale] [string trim $grade_plural_name "#"]] +} +if {[string match "#*#" $grade_name]} { + set grade_plural_name [lang::message::lookup \ + [ad_conn locale] [string trim $grade_name "#"]] +} +set low_name $grade_plural_name +set grade_plural_name [string toupper $grade_plural_name] + set submitted_label "
[_ evaluation-portlet.lt_smallTotal_points_in__1]
" if { $admin_p } { Index: openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl 14 Mar 2008 13:20:39 -0000 1.12 +++ openacs-4/packages/evaluation/www/admin/grades/distribution-edit.tcl 9 Jun 2009 03:00:21 -0000 1.13 @@ -24,6 +24,12 @@ db_1row grade_info { *SQL* } +if {[string match "#*#" $grade_plural_name]} { + set grade_plural_name [lang::message::lookup \ + [ad_conn locale] [string trim $grade_plural_name "#"]] +} +set grade_plural_name_up [string toupper $grade_plural_name] + if { ![empty_string_p $set_task_id_live] } { evaluation::set_live_task -task_item_id $set_task_id_live }