Commit 917a3831 authored by Kevin Falcone's avatar Kevin Falcone
Browse files

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.
parent 427256c4
......@@ -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 - ",
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment