loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.63, 2002/10/01 20:17:42	version 1.64, 2002/10/04 06:35:28
Line 168 sub end_numericalresponse {	Line 168 sub end_numericalresponse {
my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);	my $unit=&Apache::lonxml::get_param_var('unit',$parstack,$safeeval);

if ($target eq 'web') {	if ($target eq 'web') {
$result="<br />The computer got ";	$result="<br />The correct answer is ";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result='\vskip 0 mm The computer got \\texttt{';	$result='\vskip 0 mm The correct answer is \\texttt{';
}	}
for (my $i=0; $i <= $#answers; $i++) {	for (my $i=0; $i <= $#answers; $i++) {
my $answer=$answers[$i];	my $answer=$answers[$i];