--- loncom/interface/statistics/lonstudentassessment.pm 2003/03/09 18:53:06 1.41
+++ loncom/interface/statistics/lonstudentassessment.pm 2003/03/26 21:42:20 1.43
@@ -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.43 2003/03/26 21:42:20 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -596,8 +596,13 @@ sub StudentAverageTotal {
$Str .= '
'."\n";
$Str .= "Title | Average | Maximum |
\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;
@@ -1121,6 +1126,9 @@ sub StudentPerformanceOnSequence {
$symbol = ' ';
}
$sum++;
+ } elsif (exists($resource_data->{'resource.'.
+ $partnum.'.tries'})){
+ $symbol = '.';
} else {
$symbol = ' ';
}