--- loncom/homework/convertjme.pl	2005/04/07 06:56:21	1.14
+++ loncom/homework/convertjme.pl	2011/07/04 09:24:54	1.16
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Dynamically converts JME strings into either a png or ps file.
 #
-# $Id: convertjme.pl,v 1.14 2005/04/07 06:56:21 albertel Exp $
+# $Id: convertjme.pl,v 1.16 2011/07/04 09:24:54 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,7 +35,7 @@ use strict;
 my $loncapa=1;
 use lib '/home/httpd/lib/perl';
 use LONCAPA::loncgi;
-
+use LONCAPA;
 
 use GD;
 use PostScript::Simple;
@@ -66,11 +66,11 @@ sub unescape {
 my ($id,$width,$ps,$png,@JMEstring);
 if ($loncapa) {
     $id=$ENV{'QUERY_STRING'};
-    $width = $env{'cgi.'.$id.'.WIDTH'};
+    $width = $Apache::lonnet::env{'cgi.'.$id.'.WIDTH'};
     if (!$width) { $width = 400; }
-    $png = $env{'cgi.'.$id.'.PNG'};
-    $ps = $env{'cgi.'.$id.'.PS'};
-    @JMEstring=&unescape($env{'cgi.'.$id.'.JME'});
+    $png = $Apache::lonnet::env{'cgi.'.$id.'.PNG'};
+    $ps = $Apache::lonnet::env{'cgi.'.$id.'.PS'};
+    @JMEstring=&unescape($Apache::lonnet::env{'cgi.'.$id.'.JME'});
 } else {
     @JMEstring = @ARGV;
     $width = shift @JMEstring;
@@ -431,7 +431,7 @@ if ($loncapa) {
 	print "Content-type: image/png\n\n";
 	print $im->png;
     } elsif ($ps) {
-	my $psfile = "/home/httpd/perl/tmp/".$id.'.eps';
+	my $psfile = LONCAPA::tempdir().$id.'.eps';
 	$im->output($psfile);
 	print "Content-type: text/html\n\n";
 	print (<<HTML)