httemplate/view/cust_main/custom_content/svc_Common.html

   1 % foreach my $cust_svc (@cust_svc) {
   2 %   my $svc_x = $cust_svc->svc_x;
   3 <TABLE CLASS="fsinnerbox">
   4   <TR>
   5     <TH COLSPAN=2><% $cust_svc->part_svc->svc |h %></TH>
   6   </TR>
   7 %   foreach my $field ( grep $svc_x->$_(), @{ $opt{fields} } ) {
   8       <& /elements/tr-td-label.html, 'label' => $labels{$field} &>
   9       <TD BGCOLOR="#ffffff"><% $svc_x->$field() |h %></TD>
  10     </TR>
  11 %   }
  12 </TABLE>
  13 % }
  14 <%init>
  15 my($cust_main, %opt) = @_;
  16
  17 my $table = $opt{table};
  18 my @cust_svc = ();
  19 foreach my $cust_pkg (
  20   grep $_->num_cust_svc( 'svcdb'=>$table ),
  21        $cust_main->all_pkgs
  22 ) {
  23   my @wtf = $cust_pkg->cust_svc( 'svcdb'=>$table );
  24   push @cust_svc, $cust_pkg->cust_svc( 'svcdb'=>$table );
  25 }
  26
  27 my %labels;
  28 if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
  29 #  $opt{'name'}   = "FS::$table"->table_info->{'name'};
  30
  31   my $fields = "FS::$table"->table_info->{'fields'};
  32   %labels = map { $_ =>  ( ref($fields->{$_})
  33                             ? $fields->{$_}{'label'}
  34                             : $fields->{$_}
  35                         );
  36                 }
  37             keys %$fields;
  38 }
  39
  40 </%init>