--- loncom/xml/lonxml.pm	2003/08/07 19:31:16	1.266.2.1
+++ loncom/xml/lonxml.pm	2003/08/04 14:30:34	1.267
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.266.2.1 2003/08/07 19:31:16 albertel Exp $
+# $Id: lonxml.pm,v 1.267 2003/08/04 14:30:34 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -492,6 +492,7 @@ sub latex_special_symbols {
 	$current_token=~s/(>|<)/\$$1\$/g; #more or less
 	if ($current_token=~m/\d%/) {$current_token =~ s/(\d)%/$1\\%/g;} #percent after digit
 	if ($current_token=~m/\s%/) {$current_token =~ s/(\s)%/$1\\%/g;} #persent after space
+	if ($current_token eq '%.') {$current_token = '\%.';} #persent at the end of statement
     }
     return $current_token;
 }
@@ -1049,7 +1050,7 @@ sub parstring {
       my $val=$token->[2]->{$_};
       $val =~ s/([\%\@\\\"\'])/\\$1/g;
       #if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
-      $temp .= "my \$$_=\"$val\";"
+      $temp .= "my \$$_=\"$val\";";
     }
   }
   return $temp;
@@ -1443,7 +1444,7 @@ sub whichuser {
   my ($symb,$courseid,$domain,$name,$publicuser);
   if (defined($ENV{'form.grade_symb'})) {
     my $tmp_courseid=$ENV{'form.grade_courseid'};
-    my $allowed=&Apache::lonnet::allowed('vgr',$tmp_courseid);
+    my $allowed=&Apache::lonnet::allowed('mgr',$tmp_courseid);
     if ($allowed) {
       $symb=$ENV{'form.grade_symb'};
       $courseid=$ENV{'form.grade_courseid'};