--- loncom/interface/printout.pl 2002/08/14 19:33:14 1.17 +++ loncom/interface/printout.pl 2002/08/14 20:38:52 1.18 @@ -3,7 +3,7 @@ use IO::File; use Image::Magick; print "Content-type: text/html\n\n"; print "\n"; - my ($texfile,$laystyle) = split(/&/,$ENV{'QUERY_STRING'}); + my ($texfile,$laystyle,$numberofcolumns) = split(/&/,$ENV{'QUERY_STRING'}); my $figfile = $texfile; $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; my $duefile = $texfile; @@ -79,7 +79,11 @@ use Image::Magick; $comma = "psnup -2 -s1.0 $new_name_file"; system("$comma $tempo_file"); system("ps2pdf $tempo_file $name_file"); - } elsif ($laystyle eq 'book') { + } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') { + $comma = 'pstops "2:0+1(0.5w,0)"'; + system("$comma $new_name_file $tempo_file"); + system("ps2pdf $tempo_file $name_file"); + } else { system("ps2pdf $new_name_file $name_file"); } my $texlog = $texfile; @@ -91,7 +95,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";