loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.95, 2003/11/04 18:37:40	version 1.96, 2003/11/15 06:28:02
Line 184 sub end_foilgroup {	Line 184 sub end_foilgroup {
if ($ENV{'form.submitted'} eq 'scantron') {	if ($ENV{'form.submitted'} eq 'scantron') {
$response = $opt[$response];	$response = $opt[$response];
}	}
$responsehash{$name}=$response;
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
	$responsehash{$name}=$response;
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
&Apache::lonxml::debug("submitted a $response for $value<br />\n");	&Apache::lonxml::debug("submitted a $response for $value<br />\n");
if ($value eq $response) {	if ($value eq $response) {