71513: Card tokenization [minor test tweaks]
[freeside.git] / httemplate / elements / tr-select-svc_pbx.html
1 %if ( $columnflag eq 'F' || !keys(%svc_pbx) ) {
2   <INPUT TYPE="hidden" NAME="<% $opt{'element_name'} || $opt{'field'} || 'pbxsvc' %>" VALUE="<% $pbxsvc %>">
3 % } else { 
4
5   <TR>
6     <TD ALIGN="right"><% $opt{'label'} || 'PBX' %></TD>
7     <TD>
8       <% include('/elements/select-svc_pbx.html',
9                    'curr_value' => $pbxsvc,
10                    'part_svc'   => $part_svc,
11                    'cust_pkg'   => $cust_pkg,
12                 )
13       %>
14     </TD>
15   </TR>
16 % } 
17 <%init>
18
19 # false laziness w/tr-select-svc_acct-domain.html
20
21 my %opt = @_;
22
23 my $pbxsvc = $opt{'curr_value'};
24
25 #required
26 my $part_svc = $opt{'part_svc'}
27                || qsearchs('part_svc', { 'svcpart' => $opt{'svcpart'} });
28 my $svcpart =
29   $part_svc ? $part_svc->svcpart : '';
30 my $columnflag =
31   $part_svc ? $part_svc->part_svc_column('pbxsvc')->columnflag : '';
32
33 #optional
34 my $cust_pkg = $opt{'cust_pkg'};
35 $cust_pkg ||= qsearchs('cust_pkg', { 'pkgnum' => $opt{'pkgnum'} })
36   if $opt{'pkgnum'};
37
38 # false laziness w/select-svc_pbx.html
39
40 my $pkgnum = $cust_pkg ? $cust_pkg->pkgnum : '';
41
42 my %svc_pbx = ();
43
44 if ( $pbxsvc ) {
45   my $svc_pbx = qsearchs('svc_pbx', { 'svcnum' => $pbxsvc } );
46   if ( $svc_pbx ) {
47     $svc_pbx{$svc_pbx->svcnum} = $svc_pbx;
48   } else {
49     warn "unknown svc_pbx.svcnum for svc_acct.pbxsvc: $pbxsvc";
50   }
51 }
52
53 %svc_pbx = (
54   %svc_pbx,
55   FS::svc_Common->pbx_select_hash( 'svcpart' => $svcpart,
56                                    'pkgnum'  => $pkgnum,
57                                  )
58 );
59
60 </%init>