loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.2, 2001/02/07 00:28:33	version 1.3, 2001/02/19 20:36:26
Line 64 sub end_foilgroup {	Line 64 sub end_foilgroup {
my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1'].":$temp"};	my $response = $ENV{'form.HWVAL_'.$Apache::inputtags::response['-1'].":$temp"};
$allresponse.="$response:";	$allresponse.="$response:";
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
&Apache::lonxml::debug("submitted a $response<br>\n");	&Apache::lonxml::debug("submitted a $response<br />\n");
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
if ($value eq $response) {$right++;} else {$wrong++;}	if ($value eq $response) {$right++;} else {$wrong++;}
}	}