From bb80fef50cbe43fab0696f64e003a3f211f08979 Mon Sep 17 00:00:00 2001
From: Georgi Georgiev <georgi.georgiev@japannext.co.jp>
Date: Tue, 19 Jun 2018 17:45:22 +0900
Subject: [PATCH] Make the queue list work for everyone who can see the queue.

Lots of users find the list useful, even if they cannot see everything
in the queue.

For example, being able to see the tickets you created in various queues
is quite useful, even if you do not have the SeeTicket permission for
those queues.
---
 share/html/Elements/QueueList               | 2 +-
 share/html/Elements/QueueSummaryByLifecycle | 2 +-
 share/html/Prefs/QueueList.html             | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/share/html/Elements/QueueList b/share/html/Elements/QueueList
index d614ab9e5ed..ac95231fe05 100644
--- a/share/html/Elements/QueueList
+++ b/share/html/Elements/QueueList
@@ -62,7 +62,7 @@ my $unwanted = $session{'CurrentUser'}->UserObj->Preferences('QueueList', {});
 my $comp = $SplitByLifecycle? '/Elements/QueueSummaryByLifecycle' : '/Elements/QueueSummaryByStatus';
 my $cache_key = SetObjectSessionCache(
     ObjectType => 'RT::Queue',
-    CheckRight => 'ShowTicket',
+    CheckRight => 'SeeQueue',
     ShowAll => 0,
     CacheNeedsUpdate => RT->System->QueueCacheNeedsUpdate,
     Exclude => $unwanted,
diff --git a/share/html/Elements/QueueSummaryByLifecycle b/share/html/Elements/QueueSummaryByLifecycle
index 2dd3587440b..3f5ed27a3a7 100644
--- a/share/html/Elements/QueueSummaryByLifecycle
+++ b/share/html/Elements/QueueSummaryByLifecycle
@@ -131,7 +131,7 @@ my $data     = {};
 my $statuses = {};
 
 use RT::Report::Tickets;
-my $report = RT::Report::Tickets->new( RT->SystemUser );
+my $report = RT::Report::Tickets->new( $session{'CurrentUser'} );
 my $query =
     "(Status = '__Active__') AND (".
     join(' OR ', map "Queue = ".$_->{Id}, @$queues)
diff --git a/share/html/Prefs/QueueList.html b/share/html/Prefs/QueueList.html
index c8defe94a2d..59fa64f404f 100644
--- a/share/html/Prefs/QueueList.html
+++ b/share/html/Prefs/QueueList.html
@@ -82,7 +82,7 @@ <h1><&|/l&>Select queues to be displayed on the "RT at a glance" page</&></h1>
 my $Queues = RT::Queues->new($session{'CurrentUser'});
 $Queues->UnLimit;
 
-my $right = 'ShowTicket';
+my $right = 'SeeQueue';
 $m->callback(
     CallbackName    => 'ModifyQueues',
     Queues          => \$Queues,