version 1.176, 2007/08/10 22:04:10
|
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}; |
Line 1206 sub check_status {
|
Line 1208 sub check_status {
|
return 2; |
return 2; |
} |
} |
|
|
|
=pod |
|
|
|
=item setup_prior_tries_hash($func,$data) |
|
|
|
Foreach each past .submission $func is called with 3 arguments |
|
- the mode to set things up for (currently always 'grade') |
|
- the stored .submission string |
|
- The expansion of $data |
|
|
|
$data is an array ref containing elements that are either |
|
- scalars that are other elements of the history hash to pass to $func |
|
- ref to data to be passed untouched to $func |
|
|
|
=cut |
|
|
sub setup_prior_tries_hash { |
sub setup_prior_tries_hash { |
my ($func,$data) = @_; |
my ($func,$data) = @_; |
my $part = $Apache::inputtags::part; |
my $part = $Apache::inputtags::part; |