--- loncom/interface/printout.pl 2004/05/06 06:45:13 1.55 +++ loncom/interface/printout.pl 2004/05/11 18:42:30 1.56 @@ -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 @@ END 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$//;