loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.41, 2003/03/09 18:53:06	version 1.42, 2003/03/12 20:53:53
Line 596 sub StudentAverageTotal {	Line 596 sub StudentAverageTotal {
$Str .= '<table border=2 cellspacing="1">'."\n";	$Str .= '<table border=2 cellspacing="1">'."\n";
$Str .= "<tr><th>Title</th><th>Average</th><th>Maximum</th></tr>\n";	$Str .= "<tr><th>Title</th><th>Average</th><th>Maximum</th></tr>\n";
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
my $ave = int(100*($Statistics->{$seq->{'symb'}}->{'score'}/	my $ave;
($num_students-$nodata_count)))/100;	if ($num_students > $nodata_count) {
	$ave = int(100*($Statistics->{$seq->{'symb'}}->{'score'}/
	($num_students-$nodata_count)))/100;
	} else {
	$ave = 0;
	}
$total_ave += $ave;	$total_ave += $ave;
my $max = $seq->{'num_assess_parts'};	my $max = $seq->{'num_assess_parts'};
$total_max += $max;	$total_max += $max;