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

[sakharuk]

sakharuk		Wed May 12 14:34:47 2004 EDT

  Modified files:              
    /loncom/interface	printout.pl 
  Log:
  $Apache::lonnet::perlvar{'lonUsersDir'} used instead of /home/httpd/lonUsers.
  
  
Index: loncom/interface/printout.pl
diff -u loncom/interface/printout.pl:1.56 loncom/interface/printout.pl:1.57
--- loncom/interface/printout.pl:1.56	Tue May 11 14:42:30 2004
+++ loncom/interface/printout.pl	Wed May 12 14:34:47 2004
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc.
 #
-# $Id: printout.pl,v 1.56 2004/05/11 18:42:30 sakharuk Exp $
+# $Id: printout.pl,v 1.57 2004/05/12 18:34:47 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -104,7 +104,7 @@
 		  $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=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
 		  $eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;
 	      }
 	      my $path=$eps_f;