loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.121, 2005/04/19 13:59:34	version 1.122, 2005/11/07 22:09:00
Line 341 sub numerical_plot_percent {	Line 341 sub numerical_plot_percent {
while (my ($ans,$submissions) = each(%$responses)) {	while (my ($ans,$submissions) = each(%$responses)) {
while (my ($submission,$counts) = each(%$submissions)) {	while (my ($submission,$counts) = each(%$submissions)) {
my ($correct_count,$incorrect_count) = @$counts;	my ($correct_count,$incorrect_count) = @$counts;
my $scaled_value = 100*($submission-$ans)/abs($ans);	my $scaled_value =
	($ans) ? 100*($submission-$ans)/abs($ans)
	: 0;
if ($scaled_value < $bins[0]) {	if ($scaled_value < $bins[0]) {
$bins[0]=$scaled_value -1;	$bins[0]=$scaled_value -1;
}	}