loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.27, 2003/11/15 06:28:02	version 1.29, 2004/02/10 17:01:20
Line 191 sub grade_response {	Line 191 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 @correctorder=&get_correct_order($tol,@whichfoils);	my @correctorder=&get_correct_order($tol,@whichfoils);
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
my $response = &Apache::response::getresponse($temp);	my $response = &Apache::response::getresponse($temp);
Line 256 sub displayfoils {	Line 256 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"};