loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.104, 2005/10/11 20:02:31	version 1.105, 2005/12/06 10:03:57
Line 522 sub displayanswers {	Line 522 sub displayanswers {
my ($max,$randomize)=@_;	my ($max,$randomize)=@_;
my ($answer,@whichopt) = &whichfoils($max,$randomize);	my ($answer,@whichopt) = &whichfoils($max,$randomize);
my $result=&Apache::response::answer_header('radiobuttonresponse');	my $result=&Apache::response::answer_header('radiobuttonresponse');
	if ($Apache::lonhomework::type eq 'exam') {
	my $correct = ('A'..'Z')[$answer];
	$result.=&Apache::response::answer_part('radiobuttonresponse',
	$correct);
	}
foreach my $name (@whichopt) {	foreach my $name (@whichopt) {
$result.=&Apache::response::answer_part('radiobuttonresponse',	$result.=&Apache::response::answer_part('radiobuttonresponse',
$Apache::response::foilgroup{$name.'.value'})	$Apache::response::foilgroup{$name.'.value'});
}	}
$result.=&Apache::response::answer_footer('radiobuttonresponse');	$result.=&Apache::response::answer_footer('radiobuttonresponse');
return $result;	return $result;
}	}