loncom/homework/convertjme.pl - diff

Return to convertjme.pl CVS log

Up to [LON-CAPA] / loncom / homework

version 1.15, 2005/05/25 22:31:51	version 1.17, 2024/06/02 10:52:01
Line 35 use strict;	Line 35 use strict;
my $loncapa=1;	my $loncapa=1;
use lib '/home/httpd/lib/perl';	use lib '/home/httpd/lib/perl';
use LONCAPA::loncgi;	use LONCAPA::loncgi;
	use LONCAPA;

use GD;	use GD;
use PostScript::Simple;	use PostScript::Simple;
Line 131 if ($png) {	Line 131 if ($png) {
ysize => $ymax-$ymin+2,	ysize => $ymax-$ymin+2,
clip => 1,	clip => 1,
eps => 1,	eps => 1,
color => 0,	colour => 1,
units => "cm");	units => "cm");
}	}

Line 431 if ($loncapa) {	Line 431 if ($loncapa) {
print "Content-type: image/png\n\n";	print "Content-type: image/png\n\n";
print $im->png;	print $im->png;
} elsif ($ps) {	} elsif ($ps) {
my $psfile = "/home/httpd/perl/tmp/".$id.'.eps';	my $psfile = LONCAPA::tempdir().$id.'.eps';
$im->output($psfile);	$im->output($psfile);
print "Content-type: text/html\n\n";	print "Content-type: text/html\n\n";
print (<<HTML)	print (<<HTML)