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