loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.72, 2003/04/02 18:07:10	version 1.73, 2003/04/02 18:40:37
Line 393 sub displayfoils {	Line 393 sub displayfoils {
}	}
$result.=$break.$text."\n";	$result.=$break.$text."\n";
if ($Apache::lonhomework::type eq 'exam') {	if ($Apache::lonhomework::type eq 'exam') {
$result.=&webbubbles(\@opt,\@alphabet);	$result.=&webbubbles(\@opt,\@alphabet,$temp);
}	}
$temp++;	$temp++;
} else {	} else {
Line 468 sub optionlist_correction {	Line 468 sub optionlist_correction {

sub webbubbles {	sub webbubbles {

my ($ropt,$ralphabet)=@_;	my ($ropt,$ralphabet,$temp)=@_;
my @opt=@$ropt;	my @opt=@$ropt;
my @alphabet=@$ralphabet;	my @alphabet=@$ralphabet;
my $result='';	my $result='';
my $number_of_bubbles = $#opt + 1;	my $number_of_bubbles = $#opt + 1;
$result.= '<table border="1"><tr>';	$result.= '<table border="1"><tr>';
for (my $ind=0;$ind<$number_of_bubbles;$ind++) {	for (my $ind=0;$ind<$number_of_bubbles;$ind++) {
$result.='<td><input type="radio" name="HWVAL'.$Apache::inputtags::response['-1'].	$result.='<td><input type="radio" name="HWVAL_'.$Apache::inputtags::response['-1'].':'.$temp.
'" value='.$opt[$ind].'>'.$alphabet[$ind].': '.$opt[$ind].'</td>';	'" value='.$opt[$ind].'>'.$alphabet[$ind].': '.$opt[$ind].'</td>';
}	}
$result.='</tr></table>';	$result.='</tr></table>';