[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[sakharuk]

sakharuk		Fri Jul 26 14:40:43 2002 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
   Correction for % which works in more generak case.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.42 loncom/interface/lonprintout.pm:1.43
--- loncom/interface/lonprintout.pm:1.42	Thu Jul 25 14:58:09 2002
+++ loncom/interface/lonprintout.pm	Fri Jul 26 14:40:43 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.42 2002/07/25 18:58:09 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.43 2002/07/26 18:40:43 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -284,7 +284,7 @@
 	$first_comment = index($result,'<!--',$first_comment);
     }
     $result =~ s/^\s+$//gm; #remove empty lines
-    $result =~ s/%/\\%/g;   #corrects %
+    $result =~ s/([^\\])%/\$1\%/g;   #corrects %
     $result =~ s/(\s)+/$1/g; #removes more than one empty space
     $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
     $result =~ s/ (<|>|) / \$$1\$ /g; #corrects < or >