version 1.14, 2005/04/07 06:56:21
|
version 1.15, 2005/05/25 22:31:51
|
Line 66 sub unescape {
|
Line 66 sub unescape {
|
my ($id,$width,$ps,$png,@JMEstring); |
my ($id,$width,$ps,$png,@JMEstring); |
if ($loncapa) { |
if ($loncapa) { |
$id=$ENV{'QUERY_STRING'}; |
$id=$ENV{'QUERY_STRING'}; |
$width = $env{'cgi.'.$id.'.WIDTH'}; |
$width = $Apache::lonnet::env{'cgi.'.$id.'.WIDTH'}; |
if (!$width) { $width = 400; } |
if (!$width) { $width = 400; } |
$png = $env{'cgi.'.$id.'.PNG'}; |
$png = $Apache::lonnet::env{'cgi.'.$id.'.PNG'}; |
$ps = $env{'cgi.'.$id.'.PS'}; |
$ps = $Apache::lonnet::env{'cgi.'.$id.'.PS'}; |
@JMEstring=&unescape($env{'cgi.'.$id.'.JME'}); |
@JMEstring=&unescape($Apache::lonnet::env{'cgi.'.$id.'.JME'}); |
} else { |
} else { |
@JMEstring = @ARGV; |
@JMEstring = @ARGV; |
$width = shift @JMEstring; |
$width = shift @JMEstring; |