X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Ftr-select-agent.html;h=9f2f76a6c0adc3b5ec4c1cdd068037f1adb4b487;hb=f3b1e139720b2262516ee3690b1d4b2b9941b500;hp=37b1c1e88658ca101d67fc8fd96f760cd05fb9e7;hpb=3ce7691203a7737406bf2d4442f7fd84b81f847e;p=freeside.git diff --git a/httemplate/elements/tr-select-agent.html b/httemplate/elements/tr-select-agent.html index 37b1c1e88..9f2f76a6c 100644 --- a/httemplate/elements/tr-select-agent.html +++ b/httemplate/elements/tr-select-agent.html @@ -1,34 +1,60 @@ -% -% 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; -% } -% -% +<%doc> + +Example: + + include( '/elements/tr-select-agent.html', + + #recommended to keep things "sticky" on errors + 'curr_value' => $curr_value, + + ## + # optional + ## + + 'label' => 'Agent for this thing', + 'empty_label' => 'Select agent', #override default + 'disable_empty' => 1, + + #set to 'None' or something to override default of showing all agents + #for employees w/ 'View customers of all agents' right + viewall_right => 'None', + + ); + + % if ( scalar(@agents) == 1 ) { + - +%# YUCK. empty row so we don't throw g_row in edit.html off :/ + + % } else { - <% $opt{'label'} || 'Agent' %> - <% include( '/elements/select-agent.html', $agentnum, - 'agents' => \@agents, + <% include( '/elements/select-agent.html', + 'curr_value' => $agentnum, + 'agents' => \@agents, %opt, ) %> + % } +<%init> + +my %opt = @_; +my $agentnum = $opt{'curr_value'} || $opt{'value'}; + +my @agents = + $opt{'agents'} + ? @{ $opt{'agents'} } + : $FS::CurrentUser::CurrentUser->agents( + 'viewall_right' => $opt{'viewall_right'}, + ); + +