--- loncom/interface/lonprintout.pm	2002/05/17 21:53:50	1.28
+++ loncom/interface/lonprintout.pm	2002/05/21 00:44:03	1.30
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.28 2002/05/17 21:53:50 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.30 2002/05/21 00:44:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,7 +126,7 @@ ENDPART
       $moreenv{'request.filename'}=$currequest;
       &Apache::lonnet::appenv(%moreenv);
       $result .= $texversion;
-
+      $result = &additional_cleanup($result);
     } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or $choice eq 'Standard LaTeX output for whole primary sequence') {
 #-- where is the primary sequence containing file?
 	my %moreenv;
@@ -269,9 +269,10 @@ ENDPART
     $result =~ s/{\\par }\s*\\\\/\\\\/gm;
 	$result =~ s/\\\\\s+\[/ \[/g;
     $result =~ s/θ/\$\\theta\$/g; #converts theta from html into tex
+    $result =~ s/\b_+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
 #-- writing .tex file in prtspool 
     my $temp_file;
-    $filename = "/home/httpd/prtspool/$ENV{'user.name'}$ENV{'user.domain'}temp$ENV{'user.login.time'}.tex";
+    $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
     unless ($temp_file = Apache::File->new('>'.$filename)) {
 	$r->log_error("Couldn't open $filename for output $!");
 	return SERVER_ERROR;