loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40, 2003/10/20 18:34:20	version 1.41, 2004/01/08 19:50:47
Line 70 END	Line 70 END
my $noteps;	my $noteps;
foreach $not_eps (@content_of_file) {	foreach $not_eps (@content_of_file) {
if ($not_eps ne '') {	if ($not_eps ne '') {
	$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;	if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
m/\/home\/httpd\/html\/res\/(.+)/;	$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
$eps_f = '/home/httpd/prtspool/'.$1;	$eps_f = '/home/httpd/prtspool/'.$eps_f;
	} else {
	$eps_f=~m/\/home\/httpd\/html\/res\/(.+)/;
	$eps_f = '/home/httpd/prtspool/'.$1;
	}
my $path=$eps_f;	my $path=$eps_f;
$path=~s/\/([^\/]+)\.eps$//;	$path=~s/\/([^\/]+)\.eps$//;
File::Path::mkpath($path,0,0777);	File::Path::mkpath($path,0,0777);
my $image = Image::Magick->new;	my $image = Image::Magick->new;
$not_eps =~ s/^\s+//;	$not_eps =~ s/^\s+//;