loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.100, 2004/10/29 16:13:45	version 1.101, 2004/10/29 16:39:42
Line 635 sub RR_create_percent_selected_plot {	Line 635 sub RR_create_percent_selected_plot {
my %correct_selections;	my %correct_selections;
my %incorrect_selections;	my %incorrect_selections;
foreach my $foil (@$foils) {	foreach my $foil (@$foils) {
# foil_data has format $foil_data->{true_foil}->{selected foil}	# foil_data has format $foil_data->{true_foil}->{selected foil}=count
next if (! exists($foil_data->{$foil}));	next if (! exists($foil_data->{$foil}));
while (my ($f,$count)= each(%{$foil_data->{$foil}})) {	while (my ($f,$count)= each(%{$foil_data->{$foil}})) {
if ($f eq $foil) {	if ($f eq $foil) {
$correct_selections{$foil} += $count;	$correct_selections{$foil} += $count;
} else {	} else {
$incorrect_selections{$foil} += $count;	$incorrect_selections{$f} += $count;
}	}
}	}
}	}