loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2005/07/05 13:31:27	version 1.85, 2005/07/22 11:42:50
Line 210 END	Line 210 END
# print "$status_statement\n";	# print "$status_statement\n";
$not_eps=~s\|\/\.\/\|\/\|g;	$not_eps=~s\|\/\.\/\|\/\|g;
my $eps_f = $not_eps;	my $eps_f = $not_eps;
$eps_f =~ s/\.[^.]*$/\.eps/i;	# $eps_f =~ s/\.[^.]*$/\.eps/i;
	$eps_f .= '.eps'; # Just append the eps ext.
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;