rt/lib/RT/CustomFieldValues/Queues.pm

   1 package RT::CustomFieldValues::Queues;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw(RT::CustomFieldValues::External);
   7
   8 sub SourceDescription {
   9     return 'RT ticket queues';
  10 }
  11
  12 sub ExternalValues {
  13     my $self = shift;
  14
  15     my @res;
  16     my $i = 0;
  17     my $queues = RT::Queues->new( $self->CurrentUser );
  18     $queues->UnLimit;
  19     $queues->OrderByCols( { FIELD => 'Name' } );
  20     while( my $queue = $queues->Next ) {
  21         push @res, {
  22             name        => $queue->Name,
  23             description => $queue->Description,
  24             sortorder   => $i++,
  25         };
  26     }
  27     return \@res;
  28 }
  29
  30 1;