version 1.330, 2011/11/14 00:20:39
|
version 1.331, 2011/11/29 13:24:38
|
Line 442 sub check_access {
|
Line 442 sub check_access {
|
$Apache::lonhomework::results{'resource.'.$id.'.maxtries'}=$maxtries; |
$Apache::lonhomework::results{'resource.'.$id.'.maxtries'}=$maxtries; |
if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
# if (correct and show prob status) or excused then CANNOT_ANSWER |
# if (correct and show prob status) or excused then CANNOT_ANSWER |
if(($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/ |
if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/) |
&& |
&& (&show_problem_status()) ) { |
&show_problem_status() |
if (&Apache::inputtags::grading_is_nonlenient($id) || |
&& |
$Apache::lonhomework::history{"resource.$id.awarded"} == 1) { |
$Apache::lonhomework::history{"resource.$id.awarded"}==1) |
$status = 'CANNOT_ANSWER'; |
|| |
} |
$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) { |
} elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) { |
$status = 'CANNOT_ANSWER'; |
$status = 'CANNOT_ANSWER'; |
} |
} |
if ($status eq 'CANNOT_ANSWER' |
if ($status eq 'CANNOT_ANSWER' |