diff options
author | ivan <ivan> | 2007-06-20 22:29:41 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-06-20 22:29:41 +0000 |
commit | d94b8139112b9e1bbfaf83a99ea802e6c6e8d611 (patch) | |
tree | 55cb8fca58b751d5f52b20401acd43e41b683f86 /rt/html/RTx/Statistics/Resolution/Elements | |
parent | 2ee1226990c77afd794a562d9b4a9e22a6587d70 (diff) |
integrate RTx::Statistics, RT::Extension::ActivityReports package, and RTx::WebCronTool packages, as part of merging spiritone RT changes (#1661)
Diffstat (limited to 'rt/html/RTx/Statistics/Resolution/Elements')
-rwxr-xr-x | rt/html/RTx/Statistics/Resolution/Elements/Chart | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/rt/html/RTx/Statistics/Resolution/Elements/Chart b/rt/html/RTx/Statistics/Resolution/Elements/Chart new file mode 100755 index 000000000..fa0ac5538 --- /dev/null +++ b/rt/html/RTx/Statistics/Resolution/Elements/Chart @@ -0,0 +1,29 @@ +<%perl> +$r->content_type("image/$format"); +print $graph->plot(\@data)->$format(); +$m->abort(); +print $#data+1 . " Elements:<p>"; +for (0..$#data) { +print $data[$_]; +print "<p>"; +} +</%perl> +<%INIT> +use GD::Graph::lines; + +my @data; +my $graph = GD::Graph::lines->new($Statistics::GraphWidth,$Statistics::GraphHeight); +$graph->set(export_format => "png", + x_label => 'Days', + y_label => 'Average time in Days'); + +push @data, [split /,/ , $ARGS{x_labels}]; +push @data, [split /,/ , $ARGS{data1}]; +push @data, [split /,/ , $ARGS{data2}]; +push @data, [split /,/ , $ARGS{data3}]; + +my $format = $graph->export_format; +#$r->content_type("image/$format"); +</%INIT> +<%ARGS> +</%ARGS> |