diff options
author | cvs2git <cvs2git> | 2008-03-16 19:58:34 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2008-03-16 19:58:34 +0000 |
commit | eb061f5119325e666f0dff40d4089e5c1df58e17 (patch) | |
tree | d55e8fef5aca62eb13bbc8ad20dbdf941c3bd266 /rt/html/RTx/Statistics/CallsMultiQueue/Elements/Chart | |
parent | 3a17b276638200475d54201fa62566b7440e819a (diff) |
This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.TRIXBOX_2_6
Diffstat (limited to 'rt/html/RTx/Statistics/CallsMultiQueue/Elements/Chart')
-rwxr-xr-x | rt/html/RTx/Statistics/CallsMultiQueue/Elements/Chart | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/rt/html/RTx/Statistics/CallsMultiQueue/Elements/Chart b/rt/html/RTx/Statistics/CallsMultiQueue/Elements/Chart deleted file mode 100755 index 02a183b2c..000000000 --- a/rt/html/RTx/Statistics/CallsMultiQueue/Elements/Chart +++ /dev/null @@ -1,39 +0,0 @@ -<%perl> -$r->content_type("image/$format"); -print $graph->plot(\@data)->$format(); -$m->abort(); -</%perl> -<em><&|/l, $#data+1&>[_1] Plot Elements</&></em><p> -% foreach my $value (@data) { -<% $value %><p> -% } -<em><&|/l&>x_labels</&>:</em><p> -<% $ARGS{x_labels} %> -<p> -<em><&|/l&>legend</&>:</em><p> -<% $ARGS{set_legend} %> -<p> -<em><&|/l, (keys %ARGS) - 2&>[_1] data sets</&>:</em><p> - -% for (1..(scalar keys %ARGS)-2) { -<% $_ %> <% $ARGS{"data$_"} %><p> -% } - -<%INIT> -use GD::Graph::lines; - -my @data; -my $graph = GD::Graph::lines->new($Statistics::GraphWidth,$Statistics::GraphHeight); -$graph->set(export_format => "png", - x_label => 'Day of Week', - y_label => 'Tickets per day'); -$graph->set_legend(split /,/ , $ARGS{set_legend}); -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> |