version 1.210, 2008/12/23 18:09:36
|
version 1.211, 2009/03/06 16:13:29
|
Line 948 sub getresponse {
|
Line 948 sub getresponse {
|
my $id = $Apache::inputtags::response[-1]; |
my $id = $Apache::inputtags::response[-1]; |
|
|
my $line; |
my $line; |
|
my $startline = $env{'form.scantron_questnum_start.'.$part.'.'.$id}; |
|
if (!$startline) { |
|
$startline = $Apache::lonxml::counter; |
|
} |
for ($line = 0; $line < $lines; $line++) { |
for ($line = 0; $line < $lines; $line++) { |
my $theline = $Apache::lonxml::counter+$offset-1+$line; |
my $theline = $startline+$offset-1+$line; |
$response = $env{"scantron.$theline.answer"}; |
$response = $env{"scantron.$theline.answer"}; |
if ((defined($response)) && ($response ne "") && ($response ne " ")) { |
if ((defined($response)) && ($response ne "") && ($response ne " ")) { |
last; |
last; |
} |
} |
|
|
} |
} |
|
|
# save bubbled letter for later |
# save bubbled letter for later |