<% my( $agentnum, %opt ) = @_; my @agents; if ( $opt{'agents'} ) { @agents = @{ $opt{'agents'} }; } else { @agents = qsearch( 'agent', { disabled=>'' } ); } %> all <% foreach my $agent ( sort { $a->agent cmp $b->agent } @agents ) { %> agentnum ? ' SELECTED' : '' %>><%= $agent->agent %> <% } %>