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/TimeToResolve/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/TimeToResolve/Elements')
| -rwxr-xr-x | rt/html/RTx/Statistics/TimeToResolve/Elements/Chart | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/rt/html/RTx/Statistics/TimeToResolve/Elements/Chart b/rt/html/RTx/Statistics/TimeToResolve/Elements/Chart new file mode 100755 index 000000000..a069a7bfb --- /dev/null +++ b/rt/html/RTx/Statistics/TimeToResolve/Elements/Chart @@ -0,0 +1,23 @@ +<%perl> +print $graph->plot(\@data)->$format(); +$m->abort(); +</%perl> +<%INIT> +use GD::Graph::points; + +my @data; +my $graph = GD::Graph::points->new(400,300); +$graph->set(export_format => "png", + marker_size => $ARGS{marker_size}, + x_label => 'Average time to resolve (Days)', + y_label => 'Number of tickets resolved' ); +#$r->content_type("image/$format"); +my $format = $graph->export_format; +push @data, [split /,/ , $ARGS{x_labels}]; +for (1..((scalar keys %ARGS)-2)) { + push @data, [split /,/ , $ARGS{"data".$_}]; +} + +</%INIT> +<%ARGS> +</%ARGS> |
