--- loncom/homework/lonhomework.pm	2003/02/25 18:49:05	1.109
+++ loncom/homework/lonhomework.pm	2003/03/07 23:43:21	1.113
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.109 2003/02/25 18:49:05 albertel Exp $
+# $Id: lonhomework.pm,v 1.113 2003/03/07 23:43:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -429,7 +429,15 @@ sub editxmlmode {
     &renderpage($request,$file);
   } else {
     my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
-    my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index");
+    my $xml_help = '<table><tr><td>'.
+	&Apache::loncommon::help_open_topic("Problem_Editor_XML_Index",'Problem Editing Help')
+	    .'</td><td>'.
+	&Apache::loncommon::help_open_topic("Greek_Symbols",'Greek Symbols',
+					    undef,undef,600)
+	    .'</td><td>'.
+        &Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols',
+					    undef,undef,600)
+	    .'</td></tr></table>';
     if ($cols > 80) { $cols = 80; }
     if ($cols < 70) { $cols = 70; }
     if ($rows < 20) { $rows = 20; }
@@ -444,7 +452,7 @@ sub editxmlmode {
             <input type="submit" name="submit" value="Submit Changes and View" />
             <input type="submit" name="Undo" value="undo" />
             <hr />
-            ' . $xml_help . ' Problem Help<br>
+            ' . $xml_help . '
             <textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'.
 	      &HTML::Entities::encode($problem).'</textarea>
             </form></body></html>';
@@ -475,7 +483,7 @@ sub renderpage {
     &Apache::lonxml::debug("Should be parsing now");
     $result = &Apache::lonxml::xmlparse($request, $target, $problem,
 			&setup_vars($target),%mystyle);
-
+    undef($Apache::lonhomework::parsing_a_problem);
     #$request->print("Result follows:");
     if ($target eq 'modified') {
       &handle_save_or_undo($request,\$problem,\$result);
@@ -490,6 +498,7 @@ sub renderpage {
 	#$result.="<br />Spent $td seconds processing target $target\n</body>";
       #}
       $request->print($result);
+      $request->rflush();
     }
     #$request->print(":Result ends");
     #my $td=&tv_interval($t0);