% foreach my $cust_svc (@cust_svc) { % my $svc_x = $cust_svc->svc_x; % foreach my $field ( grep $svc_x->$_(), @{ $opt{fields} } ) { <& /elements/tr-td-label.html, 'label' => $labels{$field} &> % }
<% $cust_svc->part_svc->svc |h %>
<% $svc_x->$field() |h %>
% } <%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; }