loncom/cgi/graph.png - diff

Return to graph.png CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.32, 2003/12/18 16:33:02	version 1.33, 2004/01/08 15:50:17
Line 198 if (! defined($MyGraph)) {	Line 198 if (! defined($MyGraph)) {
##	##
## Build the @Data array	## Build the @Data array
my $NumSets = &get_env('NumSets');	my $NumSets = &get_env('NumSets');
my @Data; # stores the data for the graph	my @Data; # stores the data for the graph
	my @Legend; # one entry per data set
my @xlabels = split(',',&get_env('labels'));	my @xlabels = split(',',&get_env('labels'));
push(@Data,\@xlabels);	push(@Data,\@xlabels);
for (my $i=1;$i<=$NumSets;$i++) {	for (my $i=1;$i<=$NumSets;$i++) {
push(@Data,[split(',',&get_env('data.'.$i))]);	push(@Data,[split(',',&get_env('data.'.$i))]);
	push(@Legend,&get_env('data.'.$i.'.label',undef));
}	}

my $error = '';	my $error = '';
Line 211 if (! $MyGraph->set(%GraphSettings)) {	Line 213 if (! $MyGraph->set(%GraphSettings)) {
return;	return;
}	}

	if (join('',@Legend) ne '') {
	$MyGraph->set_legend(@Legend);
	}


my $plot = $MyGraph->plot(\@Data);	my $plot = $MyGraph->plot(\@Data);
if (! defined($plot)) {	if (! defined($plot)) {
my $error = 'Unable to plot the data provided.';	my $error = 'Unable to plot the data provided.';