Index: openacs-4/packages/evaluation/www/admin/grades/grades.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/grades.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/evaluation/www/admin/grades/grades.tcl	8 Aug 2006 21:26:42 -0000	1.16
+++ openacs-4/packages/evaluation/www/admin/grades/grades.tcl	17 Jul 2007 12:23:57 -0000	1.17
@@ -105,7 +105,9 @@
 
 db_multirow  -extend { delete_template } grades  get_class_grades { *SQL* } {
     if { $simple_p } {
-	set total [expr $total + $weight]
+	if { ![empty_string_p $live_revision] } {	
+	  set total [expr $total + $weight]
+        }
     }
     if { [empty_string_p $live_revision] } {
 	set delete_template "<span style=\"font-style: italic; color: red; font-size: 9pt;\">[_ evaluation.Deleted]</span> <a href=[export_vars -base "grades" { {set_grade_id_live $item_id} }]>[_ evaluation.make_it_live]</a>"