httemplate/elements/select-svc-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
   7     <OPTION VALUE="<% $svcnum %>"
   8             <% ($svcnum == $domsvc) ? ' SELECTED' : '' %>
   9     ><% $svc_domain{$svcnum} %>
  10
  11 % }
  12
  13 </SELECT>
  14 <%init>
  15
  16 my %opt = @_;
  17
  18 my %svc_domain = ();
  19 my $domsvc;
  20
  21 my $domsvc = $opt{'curr_value'};
  22 my $part_svc = $opt{'part_svc'}
  23                || qsearchs('part_svc', { 'svcpart' => $opt{'svcpart'} });
  24
  25 #optional
  26 my $cust_pkg = $opt{'cust_pkg'};
  27 $cust_pkg ||= qsearchs('cust_pkg', { 'pkgnum' => $opt{'pkgnum'} })
  28   if $opt{'pkgnum'};
  29
  30 my $pkgnum = $cust_pkg ? $cust_pkg->pkgnum : '';
  31
  32 my %svc_domain = ();
  33
  34 if ( $domsvc ) {
  35   my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $domsvc } );
  36   if ( $svc_domain ) {
  37     $svc_domain{$svc_domain->svcnum} = $svc_domain;
  38   } else {
  39     warn "unknown svc_domain.svcnum for svc_acct.domsvc: $domsvc";
  40   }
  41 }
  42
  43 %svc_domain = (
  44   %svc_domain,
  45   FS::svc_Domain_Mixin->domain_select_hash( 'svcpart' => $part_svc->svcpart,
  46                                             'pkgnum'  => $pkgnum,
  47                                           )
  48 );
  49
  50 </%init>