The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%ARGS>
$Name => undef
$Queue => undef
</%ARGS>
<%INIT>
$m->abort unless grep { $Name eq $_ } RT->Config->Get('AutomaticAssignmentChoosers');

my $QueueObj = RT::Queue->new($session{'CurrentUser'});
$QueueObj->Load( $Queue );

my $path = "/Admin/Queues/Elements/Chooser/$Name";
my $prefix = "Chooser_${Name}";
</%INIT>
% $m->comp($path, prefix => $prefix, config => {}, queue => $QueueObj);
% $m->abort;