loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2002/07/30 14:11:17	version 1.11, 2002/08/01 15:28:35
Line 19 if (-e $figfile) {	Line 19 if (-e $figfile) {
foreach $not_eps (@content_of_file) {	foreach $not_eps (@content_of_file) {
if ($not_eps ne '') {	if ($not_eps ne '') {
my $eps_f = $not_eps;	my $eps_f = $not_eps;
$eps_f =~ s/\..*$/\.eps/;	$eps_f =~ s/\.[^.]*$/\.eps/i;
	print"START $eps_f FINISH\n";
$_ = $eps_f;	$_ = $eps_f;
m/\/(\w+\.eps)/;	m/\/([^\/]+)$/;
	print"START $1 FINISH\n";
$eps_f = '/home/httpd/prtspool/'.$1;	$eps_f = '/home/httpd/prtspool/'.$1;
my $image = Image::Magick->new;	my $image = Image::Magick->new;
$not_eps =~ s/^\s+//;	$not_eps =~ s/^\s+//;