version 1.181, 2007/10/17 00:22:51
|
version 1.183, 2007/11/06 11:48:48
|
Line 898 sub getresponse {
|
Line 898 sub getresponse {
|
$response = $env{'scantron.'. |
$response = $env{'scantron.'. |
($Apache::lonxml::counter+$offset-1+$line). |
($Apache::lonxml::counter+$offset-1+$line). |
'.answer'}; |
'.answer'}; |
if ($response ne "") { |
if ((defined($response)) && ($response ne " ")) { |
last; |
last; |
} |
} |
|
|
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; |