version 1.122, 2003/05/09 17:01:08
|
version 1.126, 2003/05/13 01:56:32
|
Line 61 BEGIN {
|
Line 61 BEGIN {
|
} |
} |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if (($ENV{'request.state'} eq "published") || |
|
($ENV{'request.state'} eq "uploaded")) { |
if ( defined($ENV{'form.grade_target'} ) |
if ( defined($ENV{'form.grade_target'} ) |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
return ($ENV{'form.grade_target'}); |
return ($ENV{'form.grade_target'}); |
Line 214 sub check_access {
|
Line 215 sub check_access {
|
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($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/ |
|
&& lc($Apache::lonhomework::problemstatus) ne 'no') { |
$status = 'CANNOT_ANSWER'; |
$status = 'CANNOT_ANSWER'; |
} |
} |
} |
} |