loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.165, 2004/02/16 17:20:39	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 (defined($ENV{'form.problemstatus'})) {	if ($ENV{'form.problemstate'}) {
if ($ENV{'form.problemstate'} =~ /^CANNOT_ANSWER/) {	if ($ENV{'form.problemstate'} =~ /^CANNOT_ANSWER/) {
return ('CANNOT_ANSWER','is in this state by royal decree.');	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 {	} else {
return ($ENV{'form.problemstate'},	return ($ENV{'form.problemstate'},
'is in this state by royal decree.');	&mt('is in this state by royal decree.'));
}	}
}	}
&Apache::lonxml::debug("in construction ignoring dates");	&Apache::lonxml::debug("in construction ignoring dates");