--- loncom/homework/convertjme.pl 2005/02/09 21:50:06 1.13 +++ loncom/homework/convertjme.pl 2005/04/07 06:56:21 1.14 @@ -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.13 2005/02/09 21:50:06 albertel Exp $ +# $Id: convertjme.pl,v 1.14 2005/04/07 06:56:21 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,7 +34,7 @@ use strict; ### For standalone operation, set $loncapa to 0, and comment out both uses my $loncapa=1; use lib '/home/httpd/lib/perl'; -use LONCAPA::loncgi(); +use LONCAPA::loncgi; use GD; @@ -66,11 +66,11 @@ sub unescape { my ($id,$width,$ps,$png,@JMEstring); if ($loncapa) { $id=$ENV{'QUERY_STRING'}; - $width = $ENV{'cgi.'.$id.'.WIDTH'}; + $width = $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 = $env{'cgi.'.$id.'.PNG'}; + $ps = $env{'cgi.'.$id.'.PS'}; + @JMEstring=&unescape($env{'cgi.'.$id.'.JME'}); } else { @JMEstring = @ARGV; $width = shift @JMEstring;