version 1.29, 2003/10/27 21:21:08
|
version 1.30, 2003/10/29 14:47:43
|
Line 143 my %GraphSettings = (
|
Line 143 my %GraphSettings = (
|
|
|
$GraphSettings{'x_label_skip'} = &get_env('xskip',1); |
$GraphSettings{'x_label_skip'} = &get_env('xskip',1); |
$GraphSettings{'x_tick_offset'} = &get_env('x_tick_offset',0); |
$GraphSettings{'x_tick_offset'} = &get_env('x_tick_offset',0); |
$GraphSettings{'y_max_value'} = &get_env('Max',undef); |
$GraphSettings{'y_max_value'} = &get_env('Max',1); |
|
|
my $MyGraph; |
my $MyGraph; |
if ($PlotType eq 'bar') { |
if ($PlotType eq 'bar') { |
Line 168 if ($PlotType eq 'bar') {
|
Line 168 if ($PlotType eq 'bar') {
|
$GraphSettings{'x_label_skip'} = $skip_x; |
$GraphSettings{'x_label_skip'} = $skip_x; |
$GraphSettings{'x_tick_offset'} = $x_tick_offset; |
$GraphSettings{'x_tick_offset'} = $x_tick_offset; |
$GraphSettings{'zero_axis'} = 1; |
$GraphSettings{'zero_axis'} = 1; |
|
if (&get_env('two_axes',0)) { |
|
$GraphSettings{'two_axes'} = 1; |
|
$GraphSettings{'y1_max_value'} = &get_env('y1_max_value',0); |
|
$GraphSettings{'y1_min_value'} = &get_env('y1_min_value',1); |
|
$GraphSettings{'y2_max_value'} = &get_env('y2_max_value',1); |
|
$GraphSettings{'y2_min_value'} = &get_env('y2_min_value',1); |
|
} |
} |
} |
# |
# |
# Pick up miscellanious values passed in by the user |
# Pick up miscellanious values passed in by the user |
Line 202 if (! $MyGraph->set(%GraphSettings)) {
|
Line 209 if (! $MyGraph->set(%GraphSettings)) {
|
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.'; |
$error .= '<pre>'.join(',',@{$Data[0]}).'</pre>'; |
# Debugging code: |
$error .= '<pre>'.join(',',@{$Data[1]}).'</pre>'; |
# $error .= '<pre>'.join(',',@{$Data[0]}).'</pre>'; |
$error .= '<pre>'.join(',',@{$Data[2]}).'</pre>'; |
# $error .= '<pre>'.join(',',@{$Data[1]}).'</pre>'; |
|
# $error .= '<pre>'.join(',',@{$Data[2]}).'</pre>' if (ref($Data[2])); |
|
# $error .= '<pre>'.join(',',@{$Data[3]}).'</pre>' if (ref($Data[3])); |
print &error($error); |
print &error($error); |
exit; |
exit; |
} |
} |