--- loncom/xml/lonxml.pm	2004/07/19 16:48:28	1.331
+++ loncom/xml/lonxml.pm	2004/10/18 19:50:43	1.332.2.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.331 2004/07/19 16:48:28 albertel Exp $
+# $Id: lonxml.pm,v 1.332.2.2 2004/10/18 19:50:43 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -400,6 +400,7 @@ sub latex_special_symbols {
 	# any & or # leftover should be safe to just escape
         $string=~s/([^\\]|^)\&/$1\\\&/g;
         $string=~s/([^\\]|^)\#/$1\\\#/g;
+        $string=~s/\|/\$\\mid\$/g;
 #single { or } How to escape?
     }
     return $string;
@@ -1156,6 +1157,7 @@ $cleanbut
 <input type="submit" name="savethisfile" accesskey="s"  value="$lt{'st'}" />
 <input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />
 BUTTONS
+      $buttons.=&Apache::lonhtmlcommon::htmlareaselectactive('filecont');
       my $editfooter=(<<ENDFOOTER);
 $initialize
 <hr />
@@ -1527,6 +1529,12 @@ sub whichuser {
   if (defined($ENV{'form.grade_symb'})) {
     my $tmp_courseid=$ENV{'form.grade_courseid'};
     my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);
+    if (!$allowed && 
+	exists($ENV{'request.course.sec'}) && 
+	$ENV{'request.course.sec'} !~ /^\s*$/) {
+	$allowed=&Apache::lonnet::allowed('vgr',$ENV{'form.grade_courseid'}.
+					  '/'.$ENV{'request.course.sec'});
+    }
     if ($allowed) {
       $symb=$ENV{'form.grade_symb'};
       $courseid=$ENV{'form.grade_courseid'};