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 %   #warn $svc_x;
   4 <TABLE CLASS="fsinnerbox">
   5 %   foreach my $field ( grep $svc_x->$_(), @{ $opt{fields} } ) {
   6       <& /elements/tr-td-label.html, 'label' => $labels{$field} &>
   7       <TD BGCOLOR="#ffffff"><% $svc_x->$field() |h %></TD>
   8     </TR>
   9 %   }
  10 </TABLE>
  11 % }
  12 <%init>
  13 my($cust_main, %opt) = @_;
  14
  15 my $table = $opt{table};
  16 warn $table;
  17 my @cust_svc = ();
  18 foreach my $cust_pkg (
  19   grep {warn $_->num_cust_svc( 'svcdb'=>$table ); $_->num_cust_svc( 'svcdb'=>$table ); }
  20        $cust_main->all_pkgs
  21 ) {
  22   my @wtf = $cust_pkg->cust_svc( 'svcdb'=>$table );
  23   warn scalar(@wtf);
  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>