[svn:p5ee] r9691 - p5ee/trunk/App-Widget-ChartDirector/lib/App/Widget

Author: spadkins
Date: Thu Jun 28 08:00:36 2007
New Revision: 9691

Modified:
   p5ee/trunk/App-Widget-ChartDirector/lib/App/Widget/ChartDirector.pm

Log:
Added custom data_set_colors to line graph

Modified: p5ee/trunk/App-Widget-ChartDirector/lib/App/Widget/ChartDirector.pm
==============================================================================
--- p5ee/trunk/App-Widget-ChartDirector/lib/App/Widget/ChartDirector.pm	(original)
+++ p5ee/trunk/App-Widget-ChartDirector/lib/App/Widget/ChartDirector.pm	Thu Jun 28 08:00:36 2007
@@ -644,6 +644,14 @@
     my ($self, $spec) = @_;
     my $c = $self->new_xy_chart($spec);
 
+    my $data_set_colors;
+    if ($spec->{data_set_colors}) {
+       foreach my $color ( split(/,(?:\s+)?/, $spec->{data_set_colors}) ) {
+           $color =~ s/^#//; 
+           push (@$data_set_colors, hex($color));
+       }
+    }
+
     #Display 1 out of 3 labels on the x-axis.
     # $c->xAxis()->setLabelStep(3);
 
@@ -694,7 +702,11 @@
 ################           
             #we choose colors from @color_set
             if($i <= 19) {   
-                $dataset = $layer->addDataSet($y, hex($color_set[$i]), $y_labels->[$i]);
+                if ($#$data_set_colors != -1) {
+                    $dataset = $layer->addDataSet($y, $data_set_colors->[$i], $y_labels->[$i]);
+                } else {
+                    $dataset = $layer->addDataSet($y, hex($color_set[$i]), $y_labels->[$i]);
+                }
             }
             else {
                 #if number of y_labels is greater than 20, colors will be repeated