version 1.180, 2007/10/15 09:47:29
|
version 1.182, 2007/11/05 11:46:08
|
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 1050 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"); |
} |
} |
|
|