loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.33, 2004/01/08 15:50:17	version 1.34, 2005/04/07 06:56:21
Line 59 use GD::Graph::bars;	Line 59 use GD::Graph::bars;
use GD::Graph::lines;	use GD::Graph::lines;
use GD::Graph::colour;	use GD::Graph::colour;
use GD::Graph::Data;	use GD::Graph::Data;
use LONCAPA::loncgi();	use LONCAPA::loncgi;

sub unescape {	sub unescape {
my $str=shift;	my $str=shift;
Line 92 my $id = $ENV{'QUERY_STRING'};	Line 92 my $id = $ENV{'QUERY_STRING'};
# usage: &get_env($name,$default)	# usage: &get_env($name,$default)
sub get_env {	sub get_env {
my $key = 'cgi.'.$id.'.'.(shift());	my $key = 'cgi.'.$id.'.'.(shift());
return shift if (! exists($ENV{$key}));	return shift if (! exists($env{$key}));
return $ENV{$key};	return $env{$key};
}	}

if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {	if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {