Index: openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl	24 Aug 2004 22:40:33 -0000	1.2
+++ openacs-4/packages/evaluation/www/admin/grades/student-grades-report.tcl	10 Sep 2004 19:16:32 -0000	1.3
@@ -29,5 +29,19 @@
 }
 
 set total_class_grade [format %.2f [lc_numeric [db_string get_total_grade { *SQL* }]]]
+set max_possible_grade [format %.2f [lc_numeric [db_string max_possible_grade {
+    select sum(et.weight*eg.weight/100)
+    from evaluation_tasks et,
+    evaluation_grades eg,
+    cr_items cri1,
+    cr_items cri2,
+    acs_objects ao
+    where et.grade_item_id = eg.grade_item_id
+    and cri1.live_revision = eg.grade_id
+    and cri2.live_revision = et.task_id
+    and et.requires_grade_p = 't'
+    and ao.object_id = eg.grade_item_id
+    and ao.context_id = :package_id
+}]]]
 
 ad_return_template