loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.107.2.1, 2003/09/23 01:52:57	version 1.107.2.2, 2003/10/15 19:54:45
Line 231 sub end_numericalresponse {	Line 231 sub end_numericalresponse {
if ($$tagstack[-1] eq 'numericalresponse') {	if ($$tagstack[-1] eq 'numericalresponse') {
if ($unit=~/\S/) {$result.=' (in '.$unit.')<br /><br />';}	if ($unit=~/\S/) {$result.=' (in '.$unit.')<br /><br />';}
$result.= '<table border="1"><tr>';	$result.= '<table border="1"><tr>';
	my $previous=$Apache::lonhomework::history{"resource.$Apache::inputtags::part.$id.submission"};
for (my $ind=0;$ind<$number_of_bubbles;$ind++) {	for (my $ind=0;$ind<$number_of_bubbles;$ind++) {
	my $checked='';
	if ($previous eq $bubble_values[$ind]) {
	$checked=" checked='on' ";
	}
$result.='<td><input type="radio" name="HWVAL_'.$id.	$result.='<td><input type="radio" name="HWVAL_'.$id.
'" value="'.$bubble_values[$ind].'"><b>'.	'" value="'.$bubble_values[$ind].'" '.$checked
$alphabet[$ind].'</b>: '.	.' /><b>'.$alphabet[$ind].'</b>: '.
$bubble_values[$ind].'</td>';	$bubble_values[$ind].'</td>';
}	}
$result.='</tr></table>';	$result.='</tr></table>';
} elsif ($$tagstack[-1] eq 'formularesponse') {	} elsif ($$tagstack[-1] eq 'formularesponse') {