Index: openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl 7 Jun 2004 16:05:12 -0000 1.4
+++ openacs-4/packages/evaluation/www/admin/grades/grades-reports.tcl 10 Jun 2004 21:08:54 -0000 1.5
@@ -13,13 +13,13 @@
} -validate {
grades_for_package {
if { [string eq [db_string package_grades { *SQL* }] 0] } {
- ad_complain "There are no grades for this group."
+ ad_complain "[_ evaluation.lt_There_are_no_grades_f]"
}
}
}
-set page_title "Grades Report"
-set context "Grades Report"
+set page_title "[_ evaluation.Grades_Report_]"
+set context "[_ evaluation.Grades_Report_]"
set package_id [ad_conn package_id]
# we have to decide if we are going to show all the users in the system
@@ -34,14 +34,15 @@
}
set elements [list student_name \
- [list label "Name" \
+ [list label "[_ evaluation.Name_]" \
link_url_col student_url \
orderby_asc {student_name asc} \
orderby_desc {student_name desc}] \
]
db_foreach grade_type { *SQL* } {
- set grade_label_${grade_id} "$grade_plural_name ($weight %) "
+ set weight [format %.0f [lc_numeric $weight]]
+ set grade_label_${grade_id} "${grade_plural_name} ($weight%) "
append pass_grades " grade_label_${grade_id} "
lappend elements grade_$grade_id \
[list label "@grade_label_${grade_id};noquote@" \
@@ -53,7 +54,7 @@
}
lappend elements total_grade \
- [list label "Total Grade" \
+ [list label "[_ evaluation.Total_Grade_]" \
orderby_asc {total_grade asc} \
orderby_desc {total_grade desc} \
]
@@ -77,5 +78,5 @@
db_multirow grades_report $query_name { *SQL* } {
-
+
}