loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.130, 2007/10/22 09:29:58	version 1.132, 2008/02/28 11:59:50
Line 103 sub start_radiobuttonresponse {	Line 103 sub start_radiobuttonresponse {
$result .= '\begin{enumerate}';	$result .= '\begin{enumerate}';
} elsif ($target eq 'analyze') {	} elsif ($target eq 'analyze') {
my $part_id="$Apache::inputtags::part.$id";	my $part_id="$Apache::inputtags::part.$id";
	$Apache::lonhomework::analyze{"$part_id.type"} = 'radiobuttonresponse';
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);	push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
}	}
return $result;	return $result;
Line 566 sub displayfoils {	Line 567 sub displayfoils {
$result.='\item \vskip -2 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{';}
	if ($target ne 'tex') {
	$result.=&mt('Correct:').'<b>';
	} else {
	$result.=&mt('Correct:').' \textbf{';
	}
} else {	} else {
$result.='Incorrect:';	$result.=&mt('Incorrect:');
}	}
if ($target eq 'web') { $result.="<label>"; }	if ($target eq 'web') { $result.="<label>"; }
$result.=$Apache::response::foilgroup{$name.'.text'};	$result.=$Apache::response::foilgroup{$name.'.text'};