loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

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');