loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.8, 2002/01/23 12:39:19	version 1.9, 2002/02/01 11:47:34
Line 27	Line 27
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Behrouz Minaei	# Behrouz Minaei
# YEAR=2001	# YEAR=2001
# 9/13/2001, 9/25/2001, 10/6/2001, 10/9/2001, 12/25/2001	# 9/13/01, 9/25/01, 10/6/01, 10/9/01, 12/25/01
#	# YEAR=2002
	# 2/1/02
# A CGI script that dynamically outputs a graphical chart for lonstatistics.	# A CGI script that dynamically outputs a graphical chart for lonstatistics.
#	#
####	####

use strict;	use strict;
use GD::Graph::bars3d;	use GD::Graph::bars;
use GD::Graph::colour;	use GD::Graph::colour;
use GD::Graph::Data;	use GD::Graph::Data;

Line 51 my @data =(\@xlabels,\@data1);	Line 52 my @data =(\@xlabels,\@data1);

my $Range;	my $Range;
if ( $PNo > 10 ) {$Range = 30*$PNo;}	if ( $PNo > 10 ) {$Range = 30*$PNo;}
else { $Range = 300+30*$PNo; }	else { $Range = 400+30*$PNo; }

$Max+=(10 - $Max % 10);	$Max += (10 - $Max % 10);
$Max=int($Max);	$Max = int($Max);

my $MyGraph = GD::Graph::bars3d->new($Range, 400);	my $MyGraph = GD::Graph::bars->new($Range, 400);

$MyGraph->set(	$MyGraph->set(
x_label => 'Problems #',	x_label => 'Problems #',