1 <FORM METHOD="GET" NAME="CreateTicketForm" STYLE="display:inline">
2 <SCRIPT TYPE="text/javascript">
3 function updateTicketLink() {
4 var link = document.getElementById('CreateTicketLink');
5 var selector = document.getElementById('Queue')
6 link.href = "<% $new_base.'?'.
8 { ($_ eq 'Queue') ? () : "$_=$new_param{$_}"}
9 sort keys %new_param),'Queue=') %>" + selector.options[selector.selectedIndex].value;
12 <A NAME="tickets"><FONT CLASS="fsinnerbox-title">Tickets</FONT></A>
13 <A id="CreateTicketLink" HREF="<% $new_link %>"><% mt('Create new ticket') |h %></A>
14 <% mt('in queue') |h %>
15 %# fetch list of queues in which the user can create tickets
16 % my %queues = FS::TicketSystem->queues('', 'CreateTicket');
17 % if( $conf->exists('ticket_system-force_default_queueid') ) {
18 <B><% $queues{$new_param{'Queue'}} %></B>
19 <INPUT TYPE="hidden" NAME="Queue" VALUE="<% $new_param{'Queue'} %>">
22 <SELECT NAME="Queue" id="Queue" onchange="updateTicketLink()">
23 % foreach my $queueid ( sort { $queues{$a} cmp $queues{$b} } keys %queues ) {
24 <OPTION VALUE="<% $queueid %>"
25 <% $queueid == $new_param{'Queue'} ? 'SELECTED' : '' %>
26 ><% $queues{$queueid} |h %>
29 <SCRIPT DEFER TYPE="text/javascript">updateTicketLink();</SCRIPT>
34 my $conf = new FS::Conf;
35 my $object = $opt{'object'}; # must be a cust_main, cust_svc, or svc_...
36 my ($new_base, %new_param) = FS::TicketSystem->href_params_new_ticket($object);
37 my $new_link = FS::TicketSystem->href_new_ticket($object);