2 my( $agentnum, %opt ) = @_;
5 if ( $opt{'agents'} ) {
6 @agents = @{ $opt{'agents'} };
8 @agents = qsearch( 'agent', { disabled=>'' } );
13 <SELECT NAME="agentnum">
15 <OPTION VALUE="">all</OPTION>
17 <% foreach my $agent ( sort { $a->agent cmp $b->agent } @agents ) { %>
19 <OPTION VALUE="<%= $agent->agentnum %>"<%= $agentnum == $agent->agentnum ? ' SELECTED' : '' %>><%= $agent->agent %>