--- loncom/homework/lonhomework.pm	2004/03/09 20:37:58	1.171
+++ loncom/homework/lonhomework.pm	2004/04/17 14:06:41	1.174
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.171 2004/03/09 20:37:58 albertel Exp $
+# $Id: lonhomework.pm,v 1.174 2004/04/17 14:06:41 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -207,11 +207,11 @@ sub check_access {
 		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.'));
+			    &mt('is in this state due to author settings.'));
 		}
 	    } else {
 		return ($ENV{'form.problemstate'},
-			&mt('is in this state by royal decree.'));
+			&mt('is in this state due to author settings.'));
 	    }
 	}
 	&Apache::lonxml::debug("in construction ignoring dates");
@@ -564,7 +564,7 @@ sub editxmlmode {
             <hr />
             ' . $xml_help . '
             <textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.
-	    &HTML::Entities::encode($problem).'</textarea>
+	    &HTML::Entities::encode($problem,'<>&"').'</textarea>
             </form></body></html>';
 	&Apache::lonxml::add_messages(\$result);
 	$request->print($result);
@@ -753,7 +753,8 @@ sub handler {
     #check if we know where we are
     if ($ENV{'request.course.fn'} && !&Apache::lonnet::symbread()) { 
 	# if we are browsing we might not be able to know where we are
-	if ($Apache::lonhomework::browse ne 'F') {
+	if ($Apache::lonhomework::browse ne 'F' && 
+	    $ENV{'request.state'} ne "construct") {
 	    #should know where we are, so ask
 	    if ( &Apache::lonnet::mod_perl_version() == 2 ) {
 		&Apache::lonnet::cleanenv();