loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

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

version 1.53, 2006/05/30 12:46:50	version 1.54, 2006/12/29 21:47:11
Line 736 sub get_answer {	Line 736 sub get_answer {
my ($prefix,$key,%Answer) = @_;	my ($prefix,$key,%Answer) = @_;
my $returnvalue;	my $returnvalue;
if (exists($Answer{$key})) {	if (exists($Answer{$key})) {
my $student_answer = $Answer{$key}->[0];	if (ref($Answer{$key}) eq 'HASH') {
if (! defined($student_answer)) {	my $which = 'INTERNAL';
$student_answer = $Answer{$key}->[1];	if (!exists($Answer{$key}{$which})) {
}	$which = (sort(keys(%{ $Answer{$key} })))[0];
$returnvalue = $student_answer;	}
	my $student_answer = $Answer{$key}{$which}[0][0];
	$returnvalue = $student_answer;
	} else {
	&Apache::lonnet::logthis("error analyzing problem. got a answer of type ".ref($Answer{$key}));
	}
} else {	} else {
if (exists($Answer{$prefix.'.shown'})) {	if (exists($Answer{$prefix.'.shown'})) {
# The response has foils	# The response has foils