loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.81, 2003/03/03 14:39:41	version 1.83, 2003/03/13 16:24:13
Line 178 sub end_numericalresponse {	Line 178 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') {
if (defined $unit and $Apache::lonhomework::type eq 'exam') {
$result.=' \textit{(in} \verb\|'.$unit.'\|\textit{)} ';
}
#$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++) {
Line 265 sub end_numericalresponse {	Line 262 sub end_numericalresponse {
$result.= '<br /><br /><font color="red"> Formula have to be entered here! </font><br /><br />';	$result.= '<br /><br /><font color="red"> Formula have to be entered here! </font><br /><br />';
}	}
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {
	if (defined $unit and $Apache::lonhomework::type eq 'exam') {
	$result.=' \textit{(in} \verb\|'.$unit.'\|\textit{)} ';
	}
if ($$tagstack[-1] eq 'numericalresponse') {	if ($$tagstack[-1] eq 'numericalresponse') {
my $max_val = 0;	my $max_val = 0;
if ($formats[0]=~m/^(\d+)E([^\d])(\d)$/) {	if ($formats[0]=~m/^(\d+)E([^\d])(\d)$/) {