httemplate/elements/select-agent.html


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

<%
  my( $agentnum, %opt ) = @_;

  my @agents;
  if ( $opt{'agents'} ) {
    @agents = @{ $opt{'agents'} };
  } else {
    @agents = qsearch( 'agent', { disabled=>'' } );
  }

%>

<SELECT NAME="agentnum">

  <OPTION VALUE="">all</OPTION>

  <% foreach my $agent ( sort { $a->agent cmp $b->agent } @agents ) { %>

    <OPTION VALUE="<%= $agent->agentnum %>"<%= $agentnum == $agent->agentnum ? ' SELECTED' : '' %>><%= $agent->agent %>

  <% } %>

</SELECT>