ticket escalation, part 2, RT#8254

1 files changed, 30 insertions, 0 deletions

diff --git a/rt/lib/RT/CustomFieldValues/Queues.pm b/rt/lib/RT/CustomFieldValues/Queues.pm
new file mode 100644
index 000000000..59529b6ac
--- /dev/null
+++ b/rt/lib/RT/CustomFieldValues/Queues.pm
@@ -0,0 +1,30 @@
+package RT::CustomFieldValues::Queues;
+
+use strict;
+use warnings;
+
+use base qw(RT::CustomFieldValues::External);
+
+sub SourceDescription {
+    return 'RT ticket queues';
+}
+
+sub ExternalValues {
+    my $self = shift;
+
+    my @res;
+    my $i = 0;
+    my $queues = RT::Queues->new( $self->CurrentUser );
+    $queues->UnLimit;
+    $queues->OrderByCols( { FIELD => 'Name' } );
+    while( my $queue = $queues->Next ) {
+        push @res, {
+            name        => $queue->Name,
+            description => $queue->Description,
+            sortorder   => $i++,
+        };
+    }
+    return \@res;
+}
+
+1;