[Rt-commit] rt branch, watching-tool, updated. rt-3.8.8-483-g9d550ac

[Shawn Moore]

The branch, watching-tool has been updated
       via  9d550ac0e59b2095d756ac2aa3a98c55b2ffae18 (commit)
      from  6b5ab6c887c781438355f291995180b95b3bc720 (commit)

Summary of changes:
 share/html/Tools/Watching.html |   28 ++++++++++++++++++++++++++++
 1 files changed, 28 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 9d550ac0e59b2095d756ac2aa3a98c55b2ffae18
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Thu Aug 19 16:58:15 2010 -0400

    The dumb, slow way to calculate what queues you watch

diff --git a/share/html/Tools/Watching.html b/share/html/Tools/Watching.html
index 1c6a90b..eb4c871 100644
--- a/share/html/Tools/Watching.html
+++ b/share/html/Tools/Watching.html
@@ -50,3 +50,31 @@
     current_tab => "Tools/Watching.html", 
     Title => loc("Watching Queues") &>
 
+<ul>
+
+<%perl>
+my $Queues = RT::Queues->new($session{CurrentUser});
+$Queues->UnLimit;
+while (my $Queue = $Queues->Next) {
+    my @types;
+
+    for my $type ($Queue->AllRoleGroupTypes) {
+        push @types, $type if $Queue->IsWatcher(
+            PrincipalId => $session{CurrentUser}->id,
+            Type        => $type,
+        );
+    }
+
+    next if !@types;
+</%perl>
+
+    <li><% $Queue->Name %>
+        <ul>
+%           for my $type (@types) {
+                <li><% $type %></li>
+%           }
+        </ul>
+    </li>
+% }
+
+</ul>

-----------------------------------------------------------------------