loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.43, 2005/01/10 19:21:57	version 1.44, 2005/01/31 22:00:40
Line 195 sub check_response_order {	Line 195 sub check_response_order {
sub grade_response {	sub grade_response {
my ($max,$randomize,$tol)=@_;	my ($max,$randomize,$tol)=@_;
my (@whichfoils)=&whichfoils($max,$randomize);	my (@whichfoils)=&whichfoils($max,$randomize);
if (!defined($ENV{'form.submitted'})) { return; }	if (!&Apache::response::submitted()) { return; }
my %responsehash;	my %responsehash;
my %grade;	my %grade;
my ($temp,$right,$wrong,$ignored)=(1,0,0,0);	my ($temp,$right,$wrong,$ignored)=(1,0,0,0);