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.167, 2004/02/16 19:19:31
Line 201 sub check_access {	Line 201 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','is in this state by royal decree.');
	}
} else {	} else {
return ($ENV{'form.problemstate'},	return ($ENV{'form.problemstate'},
'is in this state by royal decree.');	'is in this state by royal decree.');