loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.26, 2003/10/27 20:04:34	version 1.27, 2003/11/15 06:28:02
Line 195 sub grade_response {	Line 195 sub grade_response {
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);
$responsehash{$name}=$response;
my $value=shift(@correctorder);	my $value=shift(@correctorder);
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
	$responsehash{$name}=$response;
&Apache::lonxml::debug("submitted a $response for $value<br />\n");	&Apache::lonxml::debug("submitted a $response for $value<br />\n");
if ($value eq $response) {	if ($value eq $response) {
$grade{$name}='1'; $right++;	$grade{$name}='1'; $right++;