Tickets <% mt('Create new ticket') |h %> <% mt('in queue') |h %> %# fetch list of queues in which the user can create tickets % my %queues = FS::TicketSystem->queues('', 'CreateTicket'); % if( $conf->exists('ticket_system-force_default_queueid') ) { <% $queues{$new_param{'Queue'}} %> % } % else { % foreach my $queueid ( sort { $queues{$a} cmp $queues{$b} } keys %queues ) { ><% $queues{$queueid} |h %> % } % }

<%init> my %opt = @_; my $conf = new FS::Conf; my $object = $opt{'object'}; # must be a cust_main, cust_svc, or svc_... my ($new_base, %new_param) = FS::TicketSystem->href_params_new_ticket($object); my $new_link = FS::TicketSystem->href_new_ticket($object);