loncom/homework/convertjme.pl - diff

Return to convertjme.pl CVS log

Up to [LON-CAPA] / loncom / homework

version 1.13, 2005/02/09 21:50:06	version 1.14, 2005/04/07 06:56:21
Line 34 use strict;	Line 34 use strict;
### For standalone operation, set $loncapa to 0, and comment out both uses	### For standalone operation, set $loncapa to 0, and comment out both uses
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 GD;	use GD;
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 = $env{'cgi.'.$id.'.WIDTH'};
if (!$width) { $width = 400; }	if (!$width) { $width = 400; }
$png = $ENV{'cgi.'.$id.'.PNG'};	$png = $env{'cgi.'.$id.'.PNG'};
$ps = $ENV{'cgi.'.$id.'.PS'};	$ps = $env{'cgi.'.$id.'.PS'};
@JMEstring=&unescape($ENV{'cgi.'.$id.'.JME'});	@JMEstring=&unescape($env{'cgi.'.$id.'.JME'});
} else {	} else {
@JMEstring = @ARGV;	@JMEstring = @ARGV;
$width = shift @JMEstring;	$width = shift @JMEstring;