loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.30, 2003/11/07 08:52:20	version 1.31, 2003/11/15 06:28:02
Line 317 sub grade_response {	Line 317 sub grade_response {
my $response = &Apache::response::getresponse($temp);	my $response = &Apache::response::getresponse($temp);
push(@items,$response);	push(@items,$response);
my $responsename = $letter_name_map{$response};	my $responsename = $letter_name_map{$response};
$responsehash{$name}=$responsename;
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
	$responsehash{$name}=$responsename;
&Apache::lonxml::debug("submitted a $response for $value<br />\n");	&Apache::lonxml::debug("submitted a $response for $value<br />\n");
if ($value eq $responsename) {	if ($value eq $responsename) {
$grade{$name}='1'; $right++;	$grade{$name}='1'; $right++;