event refactor, landing on HEAD!

[freeside.git] / httemplate / elements / tr-select-agent.html

diff --git a/httemplate/elements/tr-select-agent.html b/httemplate/elements/tr-select-agent.html
index 37b1c1e..69cd95c 100644 (file)
--- a/httemplate/elements/tr-select-agent.html
+++ b/httemplate/elements/tr-select-agent.html
@@ -1,34 +1,37 @@
-%
-%  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 ) { 
 
+  <INPUT TYPE="hidden" NAME="<% $opt{'field'} || 'agentnum' %>" VALUE="<% $agents[0]->agentnum %>">
 
-  <INPUT TYPE="hidden" NAME="agentnum" VALUE="<% $agents[0]->agentnum %>">
 % } else { 
 
-
   <TR>
     <TD ALIGN="right"><% $opt{'label'} || 'Agent' %></TD>
     <TD>
-      <% include( '/elements/select-agent.html', $agentnum,
-                     'agents' => \@agents,
+      <% include( '/elements/select-agent.html',
+                     'curr_value' => $agentnum,
+                     'agents'     => \@agents,
                      %opt,
                  )
       %>
     </TD>
   </TR>
+
 % } 
 
+<%init>
+
+my %opt = @_;
+my $agentnum = $opt{'curr_value'} || $opt{'value'};
+
+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;
+}
+
+</%init>