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

[sakharuk]

sakharuk		Tue Jul 23 10:09:45 2002 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Small correction for correct work of <sub> and <sup> tags.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.40 loncom/interface/lonprintout.pm:1.41
--- loncom/interface/lonprintout.pm:1.40	Mon Jul 22 16:04:16 2002
+++ loncom/interface/lonprintout.pm	Tue Jul 23 10:09:45 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.40 2002/07/22 20:04:16 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.41 2002/07/23 14:09:45 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -292,7 +292,7 @@
     $result =~ s/{\\par }\s*\\\\/\\\\/gm;
 	$result =~ s/\\\\\s+\[/ \[/g;
     $result =~ s/&#952;/\$\\theta\$/g; #converts theta from html into tex
-    $result =~ s/\b_+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
+    $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
     #conversion of html characters to LaTeX equivalents
     if ($result =~ m/&(\w+|#\d+);/) {
 	$result = &character_chart($result);
@@ -314,6 +314,7 @@
 
 sub character_chart {
     my $result = shift;	
+    $result =~ s/&#0?0?7;//g;
     $result =~ s/&#0?0?9;//g;
     $result =~ s/&#0?10;//g;
     $result =~ s/&#0?13;//g;
@@ -634,6 +635,9 @@
     $result =~ s/&yuml;/\\"{y}/g;
     return $result;
 }
+
+
+#'"`
 
 sub additional_cleanup {
     my $result = shift;