loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.83, 2003/03/13 16:24:13	version 1.84, 2003/03/21 15:33:46
Line 232 sub end_numericalresponse {	Line 232 sub end_numericalresponse {
for ($ind=0;$ind<$number_of_bubbles;$ind++) {	for ($ind=0;$ind<$number_of_bubbles;$ind++) {
$bubbles_values[$ind] = $answers[0]($factor*($power-$powers[$#powers-$ind]));	$bubbles_values[$ind] = $answers[0]($factor*($power-$powers[$#powers-$ind]));
}	}
my @alphabet = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',	my @alphabet=('A'..'Z');
'Q','R','S','T','U','V','W','X','Y','Z');
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 />';
$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;