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

[sakharuk]

sakharuk		Thu Aug  1 11:28:35 2002 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Can use composite names for graphical files (with more than one .).
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.10 loncom/interface/printout.pl:1.11
--- loncom/interface/printout.pl:1.10	Tue Jul 30 10:11:17 2002
+++ loncom/interface/printout.pl	Thu Aug  1 11:28:35 2002
@@ -19,9 +19,11 @@
     foreach $not_eps (@content_of_file) {
 	if ($not_eps ne '') {
 	    my $eps_f = $not_eps;
-	    $eps_f =~ s/\..*$/\.eps/;
+	    $eps_f =~ s/\.[^.]*$/\.eps/i;
+	    print"START $eps_f FINISH\n";
 	    $_ = $eps_f;
-	    m/\/(\w+\.eps)/;
+            m/\/([^\/]+)$/;
+	    print"START $1 FINISH\n";
 	    $eps_f = '/home/httpd/prtspool/'.$1;
 	    my $image = Image::Magick->new;
 	    $not_eps =~ s/^\s+//;