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.167, 2004/02/16 19:19:31
  Line 201  sub check_access {
      my $passed;
      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','is in this state by royal decree.');
+ 		}
+ 	    } else {
+ 		return ($ENV{'form.problemstate'},
+ 			'is in this state by royal decree.');
+ 	    }
+ 	}
  	&Apache::lonxml::debug("in construction ignoring dates");
  	$status='CAN_ANSWER';
  	$datemsg=&mt('is in under construction');