summaryrefslogtreecommitdiff
path: root/httemplate/view/cust_main/custom_content/svc_Common.html
blob: bddb8bf16bf5bf52f36d5e8334a0791f83473736 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
% foreach my $cust_svc (@cust_svc) {
%   my $svc_x = $cust_svc->svc_x;
<TABLE CLASS="fsinnerbox">
  <TR>
    <TH COLSPAN=2><% $cust_svc->part_svc->svc |h %></TH>
  </TR>
%   foreach my $field ( grep $svc_x->$_(), @{ $opt{fields} } ) {
      <& /elements/tr-td-label.html, 'label' => $labels{$field} &>
      <TD BGCOLOR="#ffffff"><% $svc_x->$field() |h %></TD>
    </TR>
%   }
</TABLE>
% }
<%init>
my($cust_main, %opt) = @_;

my $table = $opt{table};
my @cust_svc = ();
foreach my $cust_pkg (
  grep $_->num_cust_svc( 'svcdb'=>$table ),
       $cust_main->all_pkgs
) { 
  my @wtf = $cust_pkg->cust_svc( 'svcdb'=>$table );
  push @cust_svc, $cust_pkg->cust_svc( 'svcdb'=>$table );
}

my %labels;
if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
#  $opt{'name'}   = "FS::$table"->table_info->{'name'};

  my $fields = "FS::$table"->table_info->{'fields'};
  %labels = map { $_ =>  ( ref($fields->{$_})
                            ? $fields->{$_}{'label'}
                            : $fields->{$_}
                        );
                }
            keys %$fields;
}

</%init>