loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.14, 2002/10/21 00:15:13	version 1.16, 2002/10/23 21:04:26
Line 164 sub BuildStudentAssessmentPage {	Line 164 sub BuildStudentAssessmentPage {
untie(%cache);	untie(%cache);
}	}
}	}


	$r->print(&StudentReport(\%cache, "AvgTotal", $spacing, $sequenceKeys));
	$r->print("\n");
	$r->rflush();
	untie(%cache);


$r->print('</pre>'."\n");	$r->print('</pre>'."\n");
if($selected == 0) {	if($selected == 0) {
$Str .= '<h3><font color=blue>WARNING: ';	$Str .= '<h3><font color=blue>WARNING: ';
Line 340 sub StudentReport {	Line 348 sub StudentReport {
$spacesNeeded -= 3;	$spacesNeeded -= 3;
$Str .= (' 'x$spacesNeeded);	$Str .= (' 'x$spacesNeeded);

my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.	# my $outputProblemsCorrect = sprintf("%3d", $cache->{$name.':'.$sequence.
':problemsCorrect'});	# ':problemsCorrect'});

# my $outputProblemsCorrect = sprintf("%2d/%2d ", $cache->{$name.':'.$sequence.	my $outputProblemsCorrect = sprintf("%2d/%2d", $cache->{$name.':'.$sequence.
# ':problemsCorrect'},	':problemsCorrect'},
# $characterCount);	$characterCount);
if($hasData eq 'true') {	if($hasData eq 'true') {
$Str .= '<font color="#007700">'.$outputProblemsCorrect.'</font>';	$Str .= '<font color="#007700">'.$outputProblemsCorrect.'</font>';
$hasFinalData = 'true';	$hasFinalData = 'true';
} else {	} else {
$Str .= '<font color="#007700"> </font>';	$Str .= '<font color="#007700"> </font>';
}	}
$Str .= $spacing;	$Str .= $spacing;
}	}