loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.129, 2006/12/21 19:52:28	version 1.130, 2007/01/04 02:44:07
Line 636 sub numerical_determine_answers {	Line 636 sub numerical_determine_answers {
$sdom);	$sdom);
# make the key	# make the key
my $key = $partid.'.'.$respid;	my $key = $partid.'.'.$respid;
	# pick one of the possible answers
	my $which = 'INTERNAL';
	if (!exists($analysis->{$key}{$which})) {
	$which = (sort(keys(%{ $analysis->{$key} })))[0];
	}
foreach my $item ('answer','unit','ans_high','ans_low') {	foreach my $item ('answer','unit','ans_high','ans_low') {
$correct->{$sname.':'.$sdom}->{$item} =	if (ref($analysis->{$key.'.'.$item}) eq 'ARRAY') {
$analysis->{$key.'.'.$item}->[0];	$correct->{$sname.':'.$sdom}->{$item} =
	$analysis->{$key.'.'.$item}[0];
	} else {
	$correct->{$sname.':'.$sdom}->{$item} =
	$analysis->{$key.'.'.$item}{$which}[0][0];
	}
}	}
$answers{$analysis->{$key.'.answer'}->[0]}++;	$answers{$correct->{$sname.':'.$sdom}{'answer'}}++;
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
&mt('last student'));	&mt('last student'));
}	}