loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.34, 2003/10/13 21:12:56	version 1.35, 2003/10/14 14:23:14
Line 218 sub tries_analysis {	Line 218 sub tries_analysis {
}	}
$maxstu = 0 if (! $maxstu);	$maxstu = 0 if (! $maxstu);
$minstu = 0 if (! $minstu);	$minstu = 0 if (! $minstu);
my $graphlink;	my $title;
if ($maxstu == $minstu) {	if ($maxstu == $minstu) {
$graphlink = &Apache::loncommon::DrawGraph	$title = 'Attempt '.$i.', '.$maxstu.' students';
('Attempt '.$i.', '.$maxstu.' students',
'Foil Number',
'Percent Correct',
100,
$PlotData[$i]->{'good'},
$PlotData[$i]->{'bad'});
} else {	} else {
$graphlink = &Apache::loncommon::DrawGraph	$title = 'Attempt '.$i.', '.$minstu.'-'.$maxstu.' students';
('Attempt '.$i.', '.$minstu.'-'.$maxstu.
' students',
'Foil Number',
'Percent Correct',
100,
$PlotData[$i]->{'good'},
$PlotData[$i]->{'bad'});
}	}
	my $graphlink = &Apache::loncommon::DrawGraph($title,
	'Foil Number',
	'Percent Correct',
	100,
	$PlotData[$i]->{'good'},
	$PlotData[$i]->{'bad'});
push(@Plots,$graphlink);	push(@Plots,$graphlink);
}	}
#	#
Line 334 sub time_analysis {	Line 327 sub time_analysis {
last if ($PerformanceData->[$j]->[2] > $endtime);	last if ($PerformanceData->[$j]->[2] > $endtime);
}	}
$end_index = $j;	$end_index = $j;
$plottitle = 'Tries plot '.$i;	$plottitle = 'Tries plot '.($i+1);
}	}

($plothtml,$starttime,$endtime,$data) =	($plothtml,$starttime,$endtime,$data) =