loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.84, 2003/03/21 15:33:46	version 1.85, 2003/03/21 15:39:24
Line 236 sub end_numericalresponse {	Line 236 sub end_numericalresponse {
if ($target eq 'web') {	if ($target eq 'web') {
if ($$tagstack[-1] eq 'numericalresponse') {	if ($$tagstack[-1] eq 'numericalresponse') {
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
$result.=' (<i>in '.$unit.'</i>)<br /><br />';	if ($unit=~/\S/) {$result.=' (<i>in '.$unit.'</i>)<br /><br />';}
$result.= '<table border="1"><tr>';	$result.= '<table border="1"><tr>';
for ($ind=0;$ind<$number_of_bubbles;$ind++) {	for ($ind=0;$ind<$number_of_bubbles;$ind++) {
my $ans;	my $ans;