[LON-CAPA-cvs] cvs: loncom /interface printout.pl

[sakharuk]

sakharuk		Fri Aug 23 16:02:22 2002 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Creates eps figure from a set of gif images - need for moving
  objects. 
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.19 loncom/interface/printout.pl:1.20
--- loncom/interface/printout.pl:1.19	Wed Aug 21 08:49:58 2002
+++ loncom/interface/printout.pl	Fri Aug 23 16:02:22 2002
@@ -29,6 +29,15 @@
 	      $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;