tomtom global geocoder shut down (even for existing clients) in dec 2015
[freeside.git] / 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>