+%
+% 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;
+% }
+%
+%
+% if ( scalar(@agents) == 1 ) {