rt/html/RTx/Statistics/UserTest/Elements/Chart

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