loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.103, 2004/09/09 18:34:29	version 1.104, 2004/09/24 19:44:00
Line 532 sub getresponse {	Line 532 sub getresponse {
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;	$response;
if ($resulttype ne 'letter') {	if ($resulttype ne 'letter') {
$response = $let_to_num{$response};	if ($resulttype eq 'A is 1') {
} elsif ($resulttype ne 'A is 1') {	$response = $let_to_num{$response};
$response = $let_to_num{$response}+1;	} else {
	$response = $let_to_num{$response}+1;
	}
}	}
} else {	} else {
$response = $ENV{$formparm};	$response = $ENV{$formparm};