<& Elements/Header, Title => loc("Create a ticket") &>
<&|/l&>Select a queue for your new ticket
% while (my $q = $queues->Next) {
% next unless $q->CurrentUserHasRight('CreateTicket');
% my $cf = RT::CustomField->new($session{'CurrentUser'});
% $cf->LoadByName(
% Name => 'Problem Type',
% LookupType => RT::Ticket->CustomFieldLookupType,
% ObjectId => $q->id,
% IncludeGlobal => 1,
% );
% next unless $cf->Id;
% my $values = $cf->Values;
% }
<%init>
my $queues = RT::Queues->new($session{'CurrentUser'});
$queues->UnLimit;