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++;} |
} |
} |