loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.55, 2004/05/06 06:45:13	version 1.57, 2004/05/12 18:34:47
Line 100 END	Line 100 END
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {	if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;	$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
$eps_f = '/home/httpd/prtspool/'.$eps_f;	$eps_f = '/home/httpd/prtspool/'.$eps_f;
} else {	} elsif ($eps_f=~/\/home\/httpd\/html\/res\//) {
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;	$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;
$eps_f = '/home/httpd/prtspool/'.$1;	$eps_f = '/home/httpd/prtspool/'.$1;
	} elsif ($eps_f=~/\/home\/httpd\/lonUsers\//) {
	$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
	$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2;
}	}
my $path=$eps_f;	my $path=$eps_f;
$path=~s/\/([^\/]+)\.eps$//;	$path=~s/\/([^\/]+)\.eps$//;