RT::IR defines a QUEUES variable, but package scoped

Provide a method which gives the standard RTIR Queues so you don't have
to hardcode lists in other code.  Use it to fix the hardcoded list in
the QueueSummary SQLFilter code.

html/Callbacks/RTIR/Elements/QueueSummaryByLifecycle/SQLFilter

@@ -46,7 +46,7 @@
 %#
 %# END BPS TAGGED BLOCK }}}
 <%INIT>
-for my $type ('Incidents', 'Incident Reports', 'Investigations', 'Blocks') {
+for my $type (RT::IR->Queues) {
     $Queues->Limit( FIELD => 'Name',
                     OPERATOR => 'NOT STARTSWITH',
                     VALUE => "$type - ",

lib/RT/IR.pm

@@ -113,6 +113,16 @@ sub Types {
     return values %TYPE;
 }
 
+=head2 Queues
+
+Returns a list of the core RTIR Queue names
+
+=cut
+
+sub Queues {
+    return @QUEUES;
+}
+
 =head2 TicketType
 
 Returns type of a ticket. Takes either Ticket or Queue argument.