% 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 ) { %> <% } else { %>