loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.74, 2002/11/27 16:50:09	version 1.75, 2002/12/02 17:06:09
Line 175 sub end_numericalresponse {	Line 175 sub end_numericalresponse {
if ($target eq 'web') {	if ($target eq 'web') {
$result="<br />The correct answer is ";	$result="<br />The correct answer is ";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result='\vskip 0 mm The correct answer is \\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];
Line 193 sub end_numericalresponse {	Line 193 sub end_numericalresponse {
&Apache::lonxml::debug("no format answer :$answer:");	&Apache::lonxml::debug("no format answer :$answer:");
$formatted="$answer,";	$formatted="$answer,";
}	}
if ($target eq 'tex') {$formatted=&Apache::lonxml::latex_special_symbols($formatted);}	if ($target eq 'tex') {
$result.=$formatted;	$formatted='';
}	#$formatted=&Apache::lonxml::latex_special_symbols($formatted);
	}
	$result.=$formatted;
	}
chop $result;	chop $result;
if ($target eq 'web') {	if ($target eq 'web') {
$result.=" $unit.<br />";	$result.=" $unit.<br />";
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
$result.=&Apache::lonxml::latex_special_symbols($unit);	#$result.=&Apache::lonxml::latex_special_symbols($unit);
$result.="}. \\vskip 0 mm ";	#$result.="}. \\vskip 0 mm ";
}	}
}	}
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {