loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.70, 2002/11/07 19:45:16	version 1.71, 2002/11/08 20:36:27
Line 223 sub end_numericalresponse {	Line 223 sub end_numericalresponse {
my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',	my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',
'Q','R','S','T','U','V','W','X','Y','Z');	'Q','R','S','T','U','V','W','X','Y','Z');
if ($target eq 'web') {	if ($target eq 'web') {
	my $id=$Apache::inputtags::response[-1];
$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;
Line 241 sub end_numericalresponse {	Line 242 sub end_numericalresponse {
}	}
$ans = sprintf('%.'.$format,$bubbles_values[$ind]);	$ans = sprintf('%.'.$format,$bubbles_values[$ind]);
}	}
$result.='<td>'.$alphabet[$ind].': '.$ans.'</td>';	$result.='<td><input type="radio" name="HWVAL'.$id.'" value="'.$ans.'"><b>'.$alphabet[$ind].'</b>: '.$ans.'</td>';
}	}
$result.='</tr></table>';	$result.='</tr></table>';
} elsif ($target eq 'tex') {	} elsif ($target eq 'tex') {