loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.73, 2003/04/02 18:40:37	version 1.74, 2003/04/07 22:28:08
Line 185 sub end_foilgroup {	Line 185 sub end_foilgroup {
my $wrong=0;	my $wrong=0;
my $ignored=0;	my $ignored=0;
foreach $name (@whichopt) {	foreach $name (@whichopt) {
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1'].":$temp"};	my $response=&Apache::response::getresponse($temp);
	if ($ENV{'form.submitted'} eq 'scantron') {
	$response = $opt[$response];
	}
$responsehash{$name}=$response;	$responsehash{$name}=$response;
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
Line 227 sub end_foilgroup {	Line 230 sub end_foilgroup {
&Apache::response::handle_previous(\%previous,$ad);	&Apache::response::handle_previous(\%previous,$ad);
}	}
}	}
	&Apache::lonxml::increment_counter(&getfoilcounts($max));
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result.=&Apache::edit::end_table();	$result.=&Apache::edit::end_table();
}	}
if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {$result .= '\end{enumerate}';}	if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') {
	$result .= '\end{enumerate}';
	}
return $result;	return $result;
}	}

Line 505 sub bubbles {	Line 511 sub bubbles {
}	}

}	}
&Apache::lonxml::increment_counter();
return $result;	return $result;
}	}