--- loncom/interface/printout.pl 2002/08/21 12:49:58 1.19 +++ 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; @@ -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; @@ -80,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 { @@ -95,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";