loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.25, 2003/01/09 15:59:17	version 1.26, 2003/01/09 16:37:48
Line 139 sub BuildStudentAssessmentPage {	Line 139 sub BuildStudentAssessmentPage {
if($Count % 2) {	if($Count % 2) {
$out .= '<bgcolor="#FFFFFF">';	$out .= '<bgcolor="#FFFFFF">';
} else {	} else {
$out .= '<bgcolor="#F6F6F6">';	$out .= '<bgcolor="#F0F0F0">';
}	}
my $displayString = $out.'DISPLAYDATA'.$spacing;	my $displayString = $out.'DISPLAYDATA'.$spacing;
$r->print(&Apache::lonhtmlcommon::FormatStudentInformation(	$r->print(&Apache::lonhtmlcommon::FormatStudentInformation(
Line 173 sub BuildStudentAssessmentPage {	Line 173 sub BuildStudentAssessmentPage {
untie(%cache);	untie(%cache);
}	}
}	}
	$r->print('</pre>'."\n");
if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
$r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
untie(%cache);
}
$r->print('</pre>'."\n");
if($selected == 0) {	if($selected == 0) {
$Str .= '<h3><font color=blue>WARNING: ';	$Str .= '<h3><font color=blue>WARNING: ';
$Str .= 'Please select a student</font></h3>';	$Str .= 'No Students enrolled OR Please select a student</font></h3>';
$r->print($Str);	$r->print($Str);
	} else {
	if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
	$r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
	untie(%cache);
	}
}	}

return;	return;
}	}