version 1.164, 2004/02/13 21:27:22
|
version 1.169, 2004/02/23 23:29:47
|
Line 47 use Apache::externalresponse();
|
Line 47 use Apache::externalresponse();
|
use Apache::rankresponse(); |
use Apache::rankresponse(); |
use Apache::matchresponse(); |
use Apache::matchresponse(); |
use Apache::chemresponse(); |
use Apache::chemresponse(); |
|
use Apache::drawimage(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
Line 201 sub check_access {
|
Line 202 sub check_access {
|
my $passed; |
my $passed; |
|
|
if ($ENV{'request.state'} eq "construct") { |
if ($ENV{'request.state'} eq "construct") { |
|
if ($ENV{'form.problemstate'}) { |
|
if ($ENV{'form.problemstate'} =~ /^CANNOT_ANSWER/) { |
|
if ( ! ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct' && |
|
lc($Apache::lonhomework::problemstatus) eq 'no')) { |
|
return ('CANNOT_ANSWER', |
|
&mt('is in this state by royal decree.')); |
|
} |
|
} else { |
|
return ($ENV{'form.problemstate'}, |
|
&mt('is in this state by royal decree.')); |
|
} |
|
} |
&Apache::lonxml::debug("in construction ignoring dates"); |
&Apache::lonxml::debug("in construction ignoring dates"); |
$status='CAN_ANSWER'; |
$status='CAN_ANSWER'; |
$datemsg=&mt('is in under construction'); |
$datemsg=&mt('is in under construction'); |