loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.40, 2003/03/07 18:46:38	version 1.42, 2003/03/12 20:53:53
Line 224 sub CreateInterface {	Line 224 sub CreateInterface {
$Str .= '<tr>';	$Str .= '<tr>';
$Str .= '<td align="center"><b>Sections</b></td>';	$Str .= '<td align="center"><b>Sections</b></td>';
$Str .= '<td align="center"><b>Student Data</b></td>';	$Str .= '<td align="center"><b>Student Data</b></td>';
$Str .= '<td align="center"><b>Problem Sets</b></td>';	$Str .= '<td align="center"><b>Sequences and Folders</b></td>';
$Str .= '<td align="center"><b>Output Format</b></td>';	$Str .= '<td align="center"><b>Output Format</b></td>';
$Str .= '</tr>'."\n";	$Str .= '</tr>'."\n";
#	#
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;