-%
-% my( $agentnum, %opt ) = @_;
-%
-% my @agents;
-% if ( $opt{'agents'} ) {
-% #@agents = @{ $opt{'agents'} };
-% #here is the agent virtualization
-% my $agentnums_href = $FS::CurrentUser::CurrentUser->agentnums_href;
-% @agents = grep $agentnums_href->{$_->agentnum}, @{ $opt{'agents'} };
-% delete $opt{'agents'};
-% } else {
-% @agents = $FS::CurrentUser::CurrentUser->agents;
-% }
-%
-%