loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.62, 2002/10/01 14:10:44	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];
Line 289 sub end_numericalresponse {	Line 289 sub end_numericalresponse {
$result.=' '.$alphabet[$ind].': & '.$ans.' ';	$result.=' '.$alphabet[$ind].': & '.$ans.' ';
if ($ind != $cou+$table_range[$j]-1) {$result.=' & ';}	if ($ind != $cou+$table_range[$j]-1) {$result.=' & ';}
}	}
$j++;
$cou += $table_range[$j];	$cou += $table_range[$j];
	$j++;
$result.='\\\\\hline\end{tabular}\vskip 0 mm ';	$result.='\\\\\hline\end{tabular}\vskip 0 mm ';
}	}
}	}