rt/html/RTx/Statistics/CallsMultiQueue/Elements/Chart

   1 <%perl>
   2 $r->content_type("image/$format");
   3 print $graph->plot(\@data)->$format();
   4 $m->abort();
   5 </%perl>
   6 <em><&|/l, $#data+1&>[_1] Plot Elements</&></em><p>
   7 % foreach my $value (@data) {
   8 <% $value %><p>
   9 % }
  10 <em><&|/l&>x_labels</&>:</em><p>
  11 <% $ARGS{x_labels} %>
  12 <p>
  13 <em><&|/l&>legend</&>:</em><p>
  14 <% $ARGS{set_legend} %>
  15 <p>
  16 <em><&|/l, (keys %ARGS) - 2&>[_1] data sets</&>:</em><p>
  17
  18 % for (1..(scalar keys %ARGS)-2) {
  19 <% $_ %> <% $ARGS{"data$_"} %><p>
  20 % }
  21
  22 <%INIT>
  23 use GD::Graph::lines;
  24
  25 my @data;
  26 my $graph = GD::Graph::lines->new($Statistics::GraphWidth,$Statistics::GraphHeight);
  27 $graph->set(export_format => "png",
  28             x_label       => 'Day of Week',
  29             y_label       => 'Tickets per day');
  30 $graph->set_legend(split /,/ , $ARGS{set_legend});
  31 my $format = $graph->export_format;
  32 push @data, [split /,/ , $ARGS{x_labels}];
  33 for (1..((scalar keys %ARGS)-2)) {
  34   push @data, [split /,/  , $ARGS{"data".$_}];
  35 }
  36
  37 </%INIT>
  38 <%ARGS>
  39 </%ARGS>