rt/html/RTx/Statistics/CallsQueueDay/Elements/Chart

   1 <%perl>
   2 $r->content_type("image/$format");
   3 print $graph->plot(\@data)->$format();
   4 $m->abort();
   5 print $#data+1 . " Elements:<p>";
   6 for (0..$#data) {
   7 print $data[$_];
   8 print "<p>";
   9 }
  10 </%perl>
  11 <%INIT>
  12 use GD::Graph::lines;
  13
  14 my @data;
  15 my $graph = GD::Graph::lines->new($Statistics::GraphWidth,$Statistics::GraphHeight);
  16 $graph->set(export_format => "png",
  17             x_label       => 'Day of Week',
  18             y_label       => 'Tickets per Day',
  19             x_labels_vertical => 1,
  20         );
  21 my $format = $graph->export_format;
  22 $graph->set_legend(split /,/ , $ARGS{set_legend});
  23 push @data, [split /,/ , $ARGS{x_labels}];
  24 push @data, [split /,/ , $ARGS{data1}];
  25 push @data, [split /,/ , $ARGS{data2}];
  26 push @data, [split /,/ , $ARGS{data3}];
  27 </%INIT>
  28 <%ARGS>
  29 </%ARGS>