--- loncom/homework/lonhomework.pm	2004/02/13 21:27:22	1.164
+++ loncom/homework/lonhomework.pm	2004/02/16 20:30:34	1.168
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.164 2004/02/13 21:27:22 albertel Exp $
+# $Id: lonhomework.pm,v 1.168 2004/02/16 20:30:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -201,6 +201,18 @@ 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',
+			    &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");
 	$status='CAN_ANSWER';
 	$datemsg=&mt('is in under construction');