version 1.180, 2007/10/15 09:47:29
|
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; |
Line 1050 sub show_answer {
|
Line 1049 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"); |
} |
} |
|
|