--- loncom/homework/structuretags.pm	2004/09/20 15:57:11	1.269
+++ loncom/homework/structuretags.pm	2004/10/12 22:55:22	1.270
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.269 2004/09/20 15:57:11 sakharuk Exp $
+# $Id: structuretags.pm,v 1.270 2004/10/12 22:55:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -84,12 +84,13 @@ sub page_start {
 					       $parstack,$parser,$safeeval);
 	$head_tag_start='<head>'.&Apache::lonmenu::registerurl(undef,$target).
 	    &Apache::lonhtmlcommon::htmlareaheaders().
-	    &Apache::lonhtmlcommon::spellheader();
+	    &Apache::lonhtmlcommon::spellheader().
+	    &Apache::lonxml::fontsettings();     
     }
     my $body_tag_start;
     if (!defined($found{'body'})) {
-	$body_tag_start='<body onLoad="'.&Apache::lonmenu::loadevents().'" '.
-	    'onUnload="'.&Apache::lonmenu::unloadevents().'" ';
+	$body_tag_start='<body onload="'.&Apache::lonmenu::loadevents().'" '.
+	    'onunload="'.&Apache::lonmenu::unloadevents().'" ';
 	my $background=&Apache::lonxml::get_param('background',$parstack,
 						  $safeeval);
 	if ($ENV{'browser.imagesuppress'} eq 'on') { $background=''; }
@@ -123,7 +124,7 @@ sub page_start {
     }
     my $form_tag_start;
     if (!defined($found{'form'})) {
-	$form_tag_start='<form name="lonhomework" method="POST" action="'.
+	$form_tag_start='<form name="lonhomework" method="post" action="'.
 	    $ENV{'request.uri'}.'">';
     }
     return ($result,$head_tag_start,$body_tag_start,$form_tag_start);
@@ -230,9 +231,9 @@ sub problem_web_to_edit_header {
              <input type="submit" name="newrandomization" accesskey="a" value="'.&mt('New Randomization').'" />
              <input type="submit" name="resetdata" accesskey="r" value="'.&mt('Reset Submissions').'" />
              <nobr><input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
-              <input type="text" name="rndseed" width="10" value="'.
+              <input type="text" name="rndseed" size="10" value="'.
 	       $rndseed.'"
-           onChange="javascript:document.lonhomework.changerandseed.click()" /></nobr>
+           onchange="javascript:document.lonhomework.changerandseed.click()" /></nobr>
              <input type="checkbox" name="showallfoils" ';
     if (defined($ENV{'form.showallfoils'})) { $result.='checked="on"'; }
     $result.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils').
@@ -242,7 +243,7 @@ sub problem_web_to_edit_header {
 <nobr>
 Problem Status:
 <select name='problemstate'>
-  <option name=''></option>
+  <option value=''></option>
   ".&option('CLOSED'               ,'problemstate').&mt("Closed")."</option>
   ".&option('CAN_ANSWER'           ,'problemstate').&mt("Answerable")."</option>
   ".&option('CANNOT_ANSWER_tries'  ,'problemstate').&mt("Open with full tries")."</option>
@@ -253,7 +254,7 @@ Problem Status:
 <nobr>
 Problem Type:
 <select name='problemtype'>
-  <option name=''></option>
+  <option value=''></option>
   ".&option('exam'   ,'problemtype').&mt("Exam Problem")."</option>
   ".&option('problem','problemtype').&mt("Homework problem")."</option>
   ".&option('survey' ,'problemtype').&mt("Survey Question")."</option>
@@ -335,7 +336,7 @@ sub checkout_msg {
 <font color="red">
 <p>$lt{'warning'}</p>
 </font>
-<form name="checkout" method="POST" action="$ENV{'request.uri'}">
+<form name="checkout" method="post" action="$ENV{'request.uri'}">
 <input type="hidden" name="doescheckout" value="yes" />
 <input type="button" name="checkoutbutton" value="$lt{'checkout'}" onClick="javascript:if (confirm('$lt{'checkout?'}')) { document.checkout.submit(); }" />
 </form>
@@ -349,7 +350,7 @@ sub firstaccess_msg {
     &Apache::lonxml::debug("map is $map title is $foldertitle");
     return (<<ENDCHECKOUT);
 <h2>The resources in "$foldertitle" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources "$foldertitle".</h2>
-<form name="markaccess" method="POST" action="$ENV{'request.uri'}">
+<form name="markaccess" method="post" action="$ENV{'request.uri'}">
 <input type="hidden" name="markaccess" value="yes" />
 <input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" />
 </form>
@@ -952,13 +953,13 @@ sub end_while {
 	while ($return) {
 	    if (time-$starttime >
 		$Apache::lonnet::perlvar{'lonScriptTimeout'}) {
-		$return = 0; $error=1; next;
+		#$return = 0; $error=1; next;
 	    }
 	    $result.=&Apache::scripttag::xmlparse($bodytext);
 	    $return = &Apache::run::run($code,$safeeval);
 	}
 	if ($error) {
-	    &Apache::lonxml::error('<pre>'.&mt('Code ran too long. It ran for more than').' '.$Apache::lonnet::perlvar{'lonScriptTimeout'}.' '.&mt('seconds occured while running &lt;while$gt; on line').' '.$line.'</pre>');
+	    &Apache::lonxml::error('<pre>'.&mt('Code ran too long. It ran for more than').' '.$Apache::lonnet::perlvar{'lonScriptTimeout'}.' '.&mt('seconds occured while running &lt;while&gt; on line').' '.$line.'</pre>');
 	}
     } elsif ($target eq "edit") {
 	$result.= &Apache::edit::tag_end($target,$token,'');
