version 1.128, 2003/05/16 17:41:17
|
version 1.129, 2003/05/16 19:01:27
|
Line 214 sub check_access {
|
Line 214 sub check_access {
|
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries"); |
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries"); |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/ |
# if (correct and show prob status) or excused then CANNOT_ANSWER |
&& lc($Apache::lonhomework::problemstatus) ne 'no') { |
if(($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/ |
|
&& |
|
lc($Apache::lonhomework::problemstatus) ne 'no') |
|
|| |
|
$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) { |
$status = 'CANNOT_ANSWER'; |
$status = 'CANNOT_ANSWER'; |
} |
} |
} |
} |