loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.28, 2002/05/17 21:53:50	version 1.29, 2002/05/20 19:05:39
Line 126 ENDPART	Line 126 ENDPART
$moreenv{'request.filename'}=$currequest;	$moreenv{'request.filename'}=$currequest;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
$result .= $texversion;	$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') {	} 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?	#-- where is the primary sequence containing file?
my %moreenv;	my %moreenv;
Line 269 ENDPART	Line 269 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
	$result =~ s/\b_+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
#-- 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";