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.58, 2004/05/12 18:44:50
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=~/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\//) {
$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;	$eps_f=~m/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\/(.+)/;
$eps_f = '/home/httpd/prtspool/'.$1;	$eps_f = '/home/httpd/prtspool/'.$1;
	} elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\//) {
	$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$//;
Line 116 END	Line 119 END
if ($adv) {	if ($adv) {
my $prettyname=$not_eps;	my $prettyname=$not_eps;
$prettyname=~s\|/home/([^/]+)/public_html\|/priv/$1\|;	$prettyname=~s\|/home/([^/]+)/public_html\|/priv/$1\|;
$prettyname=~s\|/home/httpd/html/\|/\|;	$prettyname=~s\|$Apache::lonnet::perlvar{'lonDocRoot'}/\|/\|;
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); }	&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); }
$done_conversion{$not_eps}=1;	$done_conversion{$not_eps}=1;
$status = $image->Read($not_eps);	$status = $image->Read($not_eps);