From d4f1051cbd26721f4106df86cd423240315748e5 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 5 Dec 2010 02:59:38 +0000
Subject: RTx-Statistics in 2.1 / 3.8, RT#10046

---
 .../html/RTx/Statistics/TimeToResolve/index.html   | 37 ++++++++++------------
 1 file changed, 16 insertions(+), 21 deletions(-)

(limited to 'rt/share/html/RTx/Statistics/TimeToResolve')

diff --git a/rt/share/html/RTx/Statistics/TimeToResolve/index.html b/rt/share/html/RTx/Statistics/TimeToResolve/index.html
index 2124b538d..ad3e23ace 100755
--- a/rt/share/html/RTx/Statistics/TimeToResolve/index.html
+++ b/rt/share/html/RTx/Statistics/TimeToResolve/index.html
@@ -5,19 +5,9 @@
 <p>This page displays the same information as the Time to Resolve chart, but in a scattergraph format and only for the previous 7 calendar
 days. It only displays data for tickets which have been resolved. Each division on the Days axis is one day and the granularity of this chart
 is 30 minutes.</p>
-<form method="POST">
 
-<table>
-  <tr>
-  <td>Show Queue:</td>
-  <td COLSPAN=3><& /Elements/SelectQueue, Name=>"queue", Default=>$queue ,ShowNullOption=>0, 
-            CheckQueueRight=>'SeeQueue' &></td>
-  </tr>
-</table>
-<INPUT TYPE="submit" VALUE="Update Page"</INPUT>
-</form>
+<form method="POST">
 
-<BR>
 % my $url = 'Elements/Chart?x_labels=';
 % my $i;
 % $url .= join ",", (map {(int($_/2) == $_/2 && (++$i)%2) ? $_/2 : ""} grep {$counts[$_]} 0..($#counts-1)), "longer";
@@ -25,14 +15,19 @@ is 30 minutes.</p>
 % $url .= "marker_size=1&";
 % $url .= "data1=".(join ",", map { $_ || () } @counts)."&";
 % chop $url;
-<IMG SRC="<% $url %>">
+<& /RTx/Statistics/Elements/GraphBox, GraphURL => $url &>
 
-<BR>
+<& /RTx/Statistics/Elements/ControlsAsTable/ControlBox, 
+        Title => "Change Queue",
+        ShowSingleQueue => 1, Queue=>$Queue,
+&>
+
+</form>
 
 %Statistics::DebugInit($m);
 
 <%ARGS>
-$queue => undef
+$Queue => undef
 </%ARGS>
 
 <%INIT>
@@ -51,16 +46,16 @@ for my $key (keys %ARGS) {
 }
 
 my $QueueObj = new RT::Queue($session{'CurrentUser'});
-if (!defined $queue) {
-  $QueueObj->Load($Statistics::TimeToResolveGraphQueue);
-  $queue = $QueueObj->Id();
-} else {
-  $QueueObj->Load($queue);
-}
+#if (!defined $queue) {
+#  $QueueObj->Load($Statistics::TimeToResolveGraphQueue);
+#  $queue = $QueueObj->Id();
+#} else {
+  $QueueObj->Load($Queue);
+#}
 
 
 my $tix = new RT::Tickets($session{'CurrentUser'});
-$tix->LimitQueue (VALUE => $queue) if $queue;
+$tix->LimitQueue (VALUE => $Queue) if $Queue;
 $tix->LimitStatus(VALUE => "resolved");
 $tix->UnLimit;
 if ($tix->Count) {
-- 
cgit v1.2.1