loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.182, 2007/11/05 11:46:08	version 1.183, 2007/11/06 11:48:48
Line 907 sub getresponse {	Line 907 sub getresponse {
# save bubbled letter for later	# save bubbled letter for later
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;	$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;