--- loncom/interface/printout.pl 2002/08/23 20:02:22 1.20 +++ loncom/interface/printout.pl 2002/09/18 18:42:57 1.21 @@ -3,7 +3,7 @@ use IO::File; use Image::Magick; print "Content-type: text/html\n\n"; print "\n"; - my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'}); + my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); my $figfile = $texfile; $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; my $duefile = $texfile; @@ -89,7 +89,7 @@ use Image::Magick; system("$comma $tempo_file"); system("ps2pdf $tempo_file $name_file"); } 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("ps2pdf $tempo_file $name_file"); } else { @@ -104,7 +104,7 @@ use Image::Magick; $texdvi =~ s/\.tex/\.dvi/; $texps =~ s/\.tex/\.ps/; my @garb = ($texlog,$texaux,$texdvi,$texps); - #unlink @garb; + unlink @garb; unlink $duefile; print "Your PDF document"; print "\n";