loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2002/08/21 12:49:58	version 1.20, 2002/08/23 20:02:22
Line 29 use Image::Magick;	Line 29 use Image::Magick;
$image->Set(page => '+100+200');	$image->Set(page => '+100+200');
$status = $image->Write($eps_f);	$status = $image->Write($eps_f);
if ($status) {print " $status ";}	if ($status) {print " $status ";}
	#check is eps exist in prtspool
	if(not -e $eps_f) {
	for (my $i=0;$i<10000;$i++) {
	if (-e $eps_f.'.'.$i) {
	rename $eps_f.'.'.$i, $eps_f;
	last;
	}
	}
	}
}	}
}	}
unlink $figfile;	unlink $figfile;