loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.20 and 1.21

version 1.20, 2002/08/23 20:02:22	version 1.21, 2002/09/18 18:42:57
Line 3 use IO::File;	Line 3 use IO::File;
use Image::Magick;	use Image::Magick;
print "Content-type: text/html\n\n";	print "Content-type: text/html\n\n";
print "<body bgcolor=\"#FFFFFF\">\n";	print "<body bgcolor=\"#FFFFFF\">\n";
my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'});	my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'});
my $figfile = $texfile;	my $figfile = $texfile;
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;	$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/;
my $duefile = $texfile;	my $duefile = $texfile;
Line 89 use Image::Magick;	Line 89 use Image::Magick;
system("$comma $tempo_file");	system("$comma $tempo_file");
system("ps2pdf $tempo_file $name_file");	system("ps2pdf $tempo_file $name_file");
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {	} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
$comma = 'pstops -pletter "2:0+1(0.5w,0)"';	$comma = 'pstops -pletter "2:0+1(0.48w,0)"';
system("$comma $new_name_file $tempo_file");	system("$comma $new_name_file $tempo_file");
system("ps2pdf $tempo_file $name_file");	system("ps2pdf $tempo_file $name_file");
} else {	} else {
Line 104 use Image::Magick;	Line 104 use Image::Magick;
$texdvi =~ s/\.tex/\.dvi/;	$texdvi =~ s/\.tex/\.dvi/;
$texps =~ s/\.tex/\.ps/;	$texps =~ s/\.tex/\.ps/;
my @garb = ($texlog,$texaux,$texdvi,$texps);	my @garb = ($texlog,$texaux,$texdvi,$texps);
#unlink @garb;	unlink @garb;
unlink $duefile;	unlink $duefile;
print "<a href=\"/prtspool/$name_file\">Your PDF document</a>";	print "<a href=\"/prtspool/$name_file\">Your PDF document</a>";
print "\n";	print "\n";

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20
changed lines
	Added in v.1.21