version 1.176, 2007/08/10 22:04:10
|
version 1.182, 2007/11/05 11:46:08
|
Line 451 sub end_customresponse {
|
Line 451 sub end_customresponse {
|
} |
} |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter(&Apache::response::repetition()); |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), |
|
"$part.$id"); |
|
if ($target eq 'analyze') { |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
} |
} |
pop(@Apache::lonxml::namespace); |
pop(@Apache::lonxml::namespace); |
pop(@Apache::response::custom_answer); |
pop(@Apache::response::custom_answer); |
Line 894 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; |
} |
} |
|
|
} |
} |
|
|
|
# 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 922 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 1044 sub show_answer {
|
Line 1050 sub show_answer {
|
my $award = $Apache::lonhomework::history{"resource.$part.solved"}; |
my $award = $Apache::lonhomework::history{"resource.$part.solved"}; |
my $status = $Apache::inputtags::status[-1]; |
my $status = $Apache::inputtags::status[-1]; |
return ( ($award =~ /^correct/ |
return ( ($award =~ /^correct/ |
&& lc($Apache::lonhomework::problemstatus) ne 'no') |
&& &Apache::lonhomework::show_problem_status()) |
|| $status eq "SHOW_ANSWER"); |
|| $status eq "SHOW_ANSWER"); |
} |
} |
|
|
Line 1206 sub check_status {
|
Line 1212 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; |