loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.177, 2007/09/25 20:18:56	version 1.178, 2007/09/27 19:05:03
Line 899 sub getresponse {	Line 899 sub getresponse {
}	}

}	}

	# save bubbled letter for later
	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
	$response;

if ($resulttype ne 'letter') {	if ($resulttype ne 'letter') {
if ($resulttype eq 'A is 1') {	if ($resulttype eq 'A is 1') {
$response = $let_to_num{$response}+1;	$response = $let_to_num{$response}+1;
Line 913 sub getresponse {	Line 918 sub getresponse {
$response = chr(ord($response) + $line * $bubbles_per_line);	$response = chr(ord($response) + $line * $bubbles_per_line);
}	}
}	}
# save submitted response for later
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;

} else {	} else {
$response = $env{$formparm};	$response = $env{$formparm};