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

@@ -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,

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)

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,