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

[sakharuk]

sakharuk		Tue May 11 14:42:30 2004 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  Changes to create and print eps counterpart for figure uploaded in the simple page.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.55 loncom/interface/printout.pl:1.56
--- loncom/interface/printout.pl:1.55	Thu May  6 02:45:13 2004
+++ loncom/interface/printout.pl	Tue May 11 14:42:30 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.55 2004/05/06 06:45:13 albertel Exp $
+# $Id: printout.pl,v 1.56 2004/05/11 18:42:30 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -100,9 +100,12 @@
 	      if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
                   $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
 		  $eps_f = '/home/httpd/prtspool/'.$eps_f;
-	      } else {
+	      } elsif ($eps_f=~/\/home\/httpd\/html\/res\//) {
 		  $eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;
 		  $eps_f = '/home/httpd/prtspool/'.$1;
+	      } elsif ($eps_f=~/\/home\/httpd\/lonUsers\//) {
+		  $eps_f=~/\/home\/httpd\/lonUsers\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
+		  $eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;
 	      }
 	      my $path=$eps_f;
 	      $path=~s/\/([^\/]+)\.eps$//;