--- loncom/interface/printout.pl 2002/08/14 19:33:14 1.17 +++ 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) = 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; @@ -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.48w,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;