loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.32, 2004/01/06 20:16:17	version 1.33, 2004/02/09 19:38:00
Line 306 sub grade_response {	Line 306 sub grade_response {
if (!defined($ENV{'form.submitted'})) { return; }	if (!defined($ENV{'form.submitted'})) { return; }
my %responsehash;	my %responsehash;
my %grade;	my %grade;
my ($temp,$right,$wrong,$ignored)=(0,0,0,0);	my ($temp,$right,$wrong,$ignored)=(1,0,0,0);
my %letter_name_map;	my %letter_name_map;
if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {	if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {
%letter_name_map=	%letter_name_map=
Line 320 sub grade_response {	Line 320 sub grade_response {
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
$responsehash{$name}=$responsename;	$responsehash{$name}=$responsename;
&Apache::lonxml::debug("submitted a $response for $value<br />\n");	&Apache::lonxml::debug("submitted a $response($responsename) for $value<br />\n");
if ($value eq $responsename) {	if ($value eq $responsename) {
$grade{$name}='1'; $right++;	$grade{$name}='1'; $right++;
} else {	} else {