loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2002/05/02 21:21:38	version 1.26, 2002/05/09 15:45:11
Line 239 ENDPART	Line 239 ENDPART
$result =~ s/{\\par }\s*\\\\/\\\\/gm;	$result =~ s/{\\par }\s*\\\\/\\\\/gm;
$result =~ s/\\\\\s+\[/ \[/g;	$result =~ s/\\\\\s+\[/ \[/g;
$result =~ s/θ/\$\\theta\$/g; #converts theta from html into tex	$result =~ s/θ/\$\\theta\$/g; #converts theta from html into tex
#-- Do all of eps figures exist?
my $needconvert = 0;
$_ = $result;
if (/\\needepsconversion/) { $needconvert = 1; }
#-- writing .tex file in prtspool	#-- writing .tex file in prtspool
my $temp_file;	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'}temp$ENV{'user.login.time'}.tex";
Line 252 ENDPART	Line 248 ENDPART
}	}
print $temp_file $result;	print $temp_file $result;
$r->print(<<FINALEND);	$r->print(<<FINALEND);
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$needconvert">	<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle">
</body>	</body>
</html>	</html>
FINALEND	FINALEND