version 1.15, 2005/05/25 22:31:51
|
version 1.16, 2011/07/04 09:24:54
|
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 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) |