loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.71, 2004/12/20 21:15:20	version 1.72, 2005/02/03 21:37:48
Line 113 END	Line 113 END
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;
$not_eps =~ s/^\s+//;	$not_eps =~ s/^\s+//;
$not_eps =~ s/\s+$//;	$not_eps =~ s/\s+$//;
if ( exists($done_conversion{$not_eps})) {	if ( exists($done_conversion{$not_eps})) { next; }
next;
}
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\|$Apache::lonnet::perlvar{'lonDocRoot'}/\|/\|;	$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;
my $status = $image->Read($not_eps);	system("convert $not_eps $eps_f");
if ($status) {print " $status ";}
$image->Set(page => '+100+200');
$status = $image->Write($eps_f);
if ($status) {print " $status ";}
#check is eps exist in prtspool	#check is eps exist in prtspool
if(not -e $eps_f) {	if(not -e $eps_f) {
for (my $i=0;$i<10000;$i++) {	for (my $i=0;$i<10000;$i++) {