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.'; |