loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.70, 2003/04/08 02:42:55	version 1.71, 2003/04/18 07:12:13
Line 417 sub getresponse {	Line 417 sub getresponse {
'P'=>15,'Q'=>16,'R'=>17,'S'=>18,'T'=>19,'U'=>20,'V'=>21,	'P'=>15,'Q'=>16,'R'=>17,'S'=>18,'T'=>19,'U'=>20,'V'=>21,
'W'=>22,'X'=>23,'Y'=>24,'Z'=>25);	'W'=>22,'X'=>23,'Y'=>24,'Z'=>25);
if ($ENV{'form.submitted'} eq 'scantron') {	if ($ENV{'form.submitted'} eq 'scantron') {
	my $part = $Apache::inputtags::part;
	my $id = $Apache::inputtags::response[-1];
$response = $ENV{'scantron.'.($Apache::lonxml::counter+$temp-1).	$response = $ENV{'scantron.'.($Apache::lonxml::counter+$temp-1).
'.answer'};	'.answer'};
	# save bubbled letter for later
	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
	$response;
$response = $let_to_num{$response};	$response = $let_to_num{$response};
} else {	} else {
$response = $ENV{$formparm};	$response = $ENV{$formparm};
}	}
return $response;	return $response;
}	}

	sub repetition {
	my $id = $Apache::inputtags::part;
	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
	my $repetition = int $weight/9;
	if ($weight % 9 != 0) {$repetition++;}
	return $repetition;
	}

1;	1;
__END__	__END__