httemplate/elements/select-svc_acct-domain.html

   1 <SELECT NAME="domsvc" SIZE=1>
   2 % foreach my $svcnum (
   3 %                      sort { $svc_domain{$a} cmp $svc_domain{$b} }
   4 %                      keys %svc_domain
   5 %                    ) {
   6 %   my $svc_domain = $svc_domain{$svcnum};
   7 %   my $selected = ($svcnum == $domsvc) ? ' SELECTED' : ''
   8
   9     <OPTION VALUE="<% $svcnum %>" <% $selected %>><% $svc_domain{$svcnum} %>
  10
  11 % }
  12
  13 </SELECT>
  14 <%init>
  15
  16 my %opt = @_;
  17
  18 my $domsvc = $opt{'curr_value'};
  19 my $part_svc = $opt{'part_svc'}
  20                || qsearchs('part_svc', { 'svcpart' => $opt{'svcpart'} });
  21
  22 #optional
  23 my $cust_pkg = $opt{'cust_pkg'};
  24 $cust_pkg ||= qsearchs('cust_pkg', { 'pkgnum' => $opt{'pkgnum'} })
  25   if $opt{'pkgnum'};
  26
  27 my $pkgnum = $cust_pkg ? $cust_pkg->pkgnum : '';
  28
  29 my %svc_domain = ();
  30
  31 if ( $domsvc ) {
  32   my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $domsvc } );
  33   if ( $svc_domain ) {
  34     $svc_domain{$svc_domain->svcnum} = $svc_domain;
  35   } else {
  36     warn "unknown svc_domain.svcnum for svc_acct.domsvc: $domsvc";
  37   }
  38 }
  39
  40 %svc_domain = (
  41   %svc_domain,
  42   FS::svc_acct->domain_select_hash( 'svcpart' => $part_svc->svcpart,
  43                                     'pkgnum'  => $pkgnum,
  44                                   )
  45 );
  46 </%init>