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* } { - + }