--- loncom/interface/printout.pl	2002/08/14 20:38:52	1.18
+++ loncom/interface/printout.pl	2002/08/23 20:02:22	1.20
@@ -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 "2:0+1(0.5w,0)"';
+	      $comma = 'pstops -pletter "2:0+1(0.5w,0)"';
 	      system("$comma $new_name_file $tempo_file");
 	      system("ps2pdf $tempo_file $name_file");
 	  } else {