--- loncom/interface/lonprintout.pm	2002/04/12 13:45:48	1.22
+++ loncom/interface/lonprintout.pm	2002/04/25 21:38:42	1.23
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.22 2002/04/12 13:45:48 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.23 2002/04/25 21:38:42 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -223,12 +223,20 @@ ENDPART
 	$result =~ s/\\includegraphics/\\includegraphics\[width=9\.0 cm\]/g;
 	$result =~ s/(\\end{document})/\\newline\\noindent\\makebox\[9.0cm\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Dept\. of Physics and Astronomy, MSU\\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright MSU GNU\/GPS $1/;
     }
-#-- LaTeX corrections 
+#-- LaTeX corrections     
+    my $first_comment = index($result,'<!--',0);
+    while ($first_comment != -1) {
+	my $end_comment = index($result,'-->',$first_comment);
+	substr($result,$first_comment,$end_comment-$first_comment+3) = '';
+	$first_comment = index($result,'<!--',$first_comment);
+    }
     $result =~ s/^\s+$//gm; #remove empty lines
     $result =~ s/%/\\%/g;   #corrects %
     $result =~ s/(\s)+/$1/g; #removes more than one empty space
-    $result =~ s/\\\\\s*(\\vskip)/ $1/gm;
+    $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
     $result =~ s/ (<|>|) / \$$1\$ /g; #corrects < or >
+    $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent/g;
+    $result =~ s/{\\par }\s*\\\\/\\\\/gm;
 #-- Do all of eps figures exist?
     my $needconvert = 0;
     $_ = $result;