rt/html/RTx/Statistics/Resolution/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           => 'Days',
  18             y_label           => 'Average time in Days');
  19
  20 push @data, [split /,/ , $ARGS{x_labels}];
  21 push @data, [split /,/ , $ARGS{data1}];
  22 push @data, [split /,/ , $ARGS{data2}];
  23 push @data, [split /,/ , $ARGS{data3}];
  24
  25 my $format = $graph->export_format;
  26 #$r->content_type("image/$format");
  27 </%INIT>
  28 <%ARGS>
  29 </%ARGS>