--- loncom/interface/printout.pl 2002/08/14 19:33:14 1.17 +++ loncom/interface/printout.pl 2002/08/23 20:02:22 1.20 @@ -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; @@ -29,6 +29,15 @@ use Image::Magick; $image->Set(page => '+100+200'); $status = $image->Write($eps_f); if ($status) {print " $status ";} + #check is eps exist in prtspool + if(not -e $eps_f) { + for (my $i=0;$i<10000;$i++) { + if (-e $eps_f.'.'.$i) { + rename $eps_f.'.'.$i, $eps_f; + last; + } + } + } } } unlink $figfile; @@ -79,7 +88,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 -pletter "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 +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";