--- loncom/interface/printout.pl 2004/05/11 18:42:30 1.56 +++ loncom/interface/printout.pl 2004/05/12 18:34:47 1.57 @@ -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 @@ END $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;