--- loncom/interface/statistics/lonstudentassessment.pm	2003/03/09 18:53:06	1.41
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/03/12 20:53:53	1.42
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.41 2003/03/09 18:53:06 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.42 2003/03/12 20:53:53 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -596,8 +596,13 @@ sub StudentAverageTotal {
     $Str .= '<table border=2 cellspacing="1">'."\n";
     $Str .= "<tr><th>Title</th><th>Average</th><th>Maximum</th></tr>\n";
     foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
-        my $ave = int(100*($Statistics->{$seq->{'symb'}}->{'score'}/
-            ($num_students-$nodata_count)))/100;
+        my $ave;
+        if ($num_students > $nodata_count) {
+            $ave = int(100*($Statistics->{$seq->{'symb'}}->{'score'}/
+                            ($num_students-$nodata_count)))/100;
+        } else {
+            $ave = 0;
+        }
         $total_ave += $ave;
         my $max = $seq->{'num_assess_parts'};
         $total_max += $max;