loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2004/01/08 19:50:47	version 1.42, 2004/02/03 00:02:15
Line 64 END	Line 64 END
$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;	$duefile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.due/;
#do we have figures?	#do we have figures?
if (-e $figfile) {	if (-e $figfile) {
	my %done_conversion;
my $temporary_file=IO::File->new($figfile) \|\| die "Couldn't open file for reading: $!\n";	my $temporary_file=IO::File->new($figfile) \|\| die "Couldn't open file for reading: $!\n";
my @content_of_file = <$temporary_file>;	my @content_of_file = <$temporary_file>;
close $temporary_file;	close $temporary_file;
Line 86 END	Line 87 END
my $image = Image::Magick->new;	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})) {
	next;
	}
	$done_conversion{$not_eps}=1;
$status = $image->Read($not_eps);	$status = $image->Read($not_eps);
if ($status) {print " $status ";}	if ($status) {print " $status ";}
$image->Set(page => '+100+200');	$image->Set(page => '+100+200');