loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.34, 2004/02/09 19:43:22	version 1.36, 2004/02/10 17:01:20
Line 368 sub grade_response {	Line 368 sub grade_response {
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=	$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=
$ad;	$ad;
$Apache::lonhomework::results{"resource.$part.$id.awarded"}=	$Apache::lonhomework::results{"resource.$part.$id.awarded"}=
$right/(scalar(@whichopt));	$right/(scalar(@whichfoils));
$Apache::lonhomework::results{"resource.$part.$id.numfoils"}=	$Apache::lonhomework::results{"resource.$part.$id.numfoils"}=
scalar(@whichopt);	scalar(@whichfoils);
}	}
}	}
}	}
Line 419 sub displayfoils {	Line 419 sub displayfoils {
}	}
} else {	} else {
my $i = 0;	my $i = 0;
my $temp=0;	my $temp=1;
my $id=$Apache::inputtags::response[-1];	my $id=$Apache::inputtags::response[-1];
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};	my $lastresponse=$Apache::lonhomework::history{"resource.$part.$id.submission"};