loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.60, 2002/11/07 15:34:14	version 1.62, 2002/12/02 17:06:08
Line 345 sub displayfoils {	Line 345 sub displayfoils {
my $result;	my $result;

my ($answer,@whichfoils)=&whichfoils($max,$randomize);	my ($answer,@whichfoils)=&whichfoils($max,$randomize);
if ($Apache::lonhomework::history{"resource.$Apache::inputtags::part.solved"} =~ /^correct/ \|\| ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER')) {	my $part=$Apache::inputtags::part;
	my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
	my $status=$Apache::inputtags::status[-1];
	if ( ($target ne 'tex') &&
	(($solved =~ /^correct/) \|\| ($status eq 'SHOW_ANSWER')) ) {
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
if ($target ne 'tex') {	if ($target ne 'tex') {
$result.="<br />";	$result.="<br />";
} else {	} else {
$result.='\vskip 0 mm ';	$result.='\item \vskip -2 mm ';
}	}
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {	if ($Apache::response::foilgroup{$name.'.value'} eq 'true') {
if ($target ne 'tex') { $result.='Correct:<b>'; } else { $result.='Correct: \textbf{';}	if ($target ne 'tex') { $result.='Correct:<b>'; } else { $result.='Correct: \textbf{';}