loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.37, 2004/09/03 18:35:52	version 1.38, 2004/09/09 18:34:29
Line 198 sub grade_response {	Line 198 sub grade_response {
my ($temp,$right,$wrong,$ignored)=(1,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) {
# get response returns a=>0, when we want a=>1	my $response = &Apache::response::getresponse($temp,'A is 1');
my $response = &Apache::response::getresponse($temp)+1;
my $value=shift(@correctorder);	my $value=shift(@correctorder);
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
$responsehash{$name}=$response;	$responsehash{$name}=$response;