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}; |