version 1.120, 2003/04/30 21:27:57
|
version 1.126, 2003/05/13 01:56:32
|
Line 50 use Apache::essayresponse();
|
Line 50 use Apache::essayresponse();
|
use Apache::externalresponse(); |
use Apache::externalresponse(); |
use Apache::rankresponse(); |
use Apache::rankresponse(); |
use Apache::matchresponse(); |
use Apache::matchresponse(); |
|
#use Apache::chemresponse(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 60 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 207 sub check_access {
|
Line 209 sub check_access {
|
$datemsg = "was due on $lastdate, and answers will be available on $date"; |
$datemsg = "was due on $lastdate, and answers will be available on $date"; |
} |
} |
if ($status eq 'CAN_ANSWER') { |
if ($status eq 'CAN_ANSWER') { |
#check #tries |
#check #tries, and if correct. |
my $tries = $Apache::lonhomework::history{"resource.$id.tries"}; |
my $tries = $Apache::lonhomework::history{"resource.$id.tries"}; |
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/ |
|
&& lc($Apache::lonhomework::problemstatus) ne 'no') { |
|
$status = 'CANNOT_ANSWER'; |
|
} |
} |
} |
|
|
if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') && |
if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') && |