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

[foxr]

foxr		Fri Jul 22 07:42:52 2005 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Defect 4246 - retain information about the converted file's initial
  filetype in case a single job requires e.g. file.jpg and file.gif to
  be converted.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.84 loncom/interface/printout.pl:1.85
--- loncom/interface/printout.pl:1.84	Tue Jul  5 09:31:27 2005
+++ loncom/interface/printout.pl	Fri Jul 22 07:42:50 2005
@@ -210,7 +210,8 @@
 	      # print "$status_statement\n";
 	      $not_eps=~s|\/\.\/|\/|g;
 	      my $eps_f = $not_eps;
-	      $eps_f =~ s/\.[^.]*$/\.eps/i;
+	      # $eps_f =~ s/\.[^.]*$/\.eps/i;
+	      $eps_f .= '.eps';	# Just append the eps ext.
 	      if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
                   $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
 		  $eps_f = '/home/httpd/prtspool/'.$eps_f;