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 -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 -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
}