loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.99, 2004/10/29 16:10:30	version 1.100, 2004/10/29 16:13:45
Line 658 sub RR_create_percent_selected_plot {	Line 658 sub RR_create_percent_selected_plot {
$incorrect[$i] = $incorrect_selections{$foil};	$incorrect[$i] = $incorrect_selections{$foil};
}	}
for (my $i=0;$i<=$#correct;$i++) {	for (my $i=0;$i<=$#correct;$i++) {
&Apache::lonnet::logthis('correct['.$i.']='.$correct[$i]);
$correct[$i] = sprintf('%2f',$correct[$i]/$total*100);	$correct[$i] = sprintf('%2f',$correct[$i]/$total*100);
}	}
for (my $i=0;$i<=$#incorrect;$i++) {	for (my $i=0;$i<=$#incorrect;$i++) {
Line 1234 sub OR_time_process_data {	Line 1233 sub OR_time_process_data {
if ($end_index == scalar(@$performance_data)-1) {	if ($end_index == scalar(@$performance_data)-1) {
$end_index++;	$end_index++;
}	}
&Apache::lonnet::logthis(' '.$begin_index.':'.$end_index);
my $count;	my $count;
for (my $i=$begin_index;$i<$end_index;$i++) {	for (my $i=$begin_index;$i<$end_index;$i++) {
my $attempt = $performance_data->[$i];	my $attempt = $performance_data->[$i];
Line 1254 sub OR_time_process_data {	Line 1252 sub OR_time_process_data {
}	}
}	}
}	}
&Apache::lonnet::logthis('count = '.$count);
return (\%processed_time_data,$correct,$data_count,	return (\%processed_time_data,$correct,$data_count,
scalar(keys(%distinct_students)));	scalar(keys(%distinct_students)));
}	}