1 % foreach my $cust_svc (@cust_svc) {
2 % my $svc_x = $cust_svc->svc_x;
3 <TABLE CLASS="fsinnerbox">
5 <TH COLSPAN=2><% $cust_svc->part_svc->svc |h %></TH>
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>
15 my($cust_main, %opt) = @_;
17 my $table = $opt{table};
19 foreach my $cust_pkg (
20 grep $_->num_cust_svc( 'svcdb'=>$table ),
23 my @wtf = $cust_pkg->cust_svc( 'svcdb'=>$table );
24 push @cust_svc, $cust_pkg->cust_svc( 'svcdb'=>$table );
28 if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
29 # $opt{'name'} = "FS::$table"->table_info->{'name'};
31 my $fields = "FS::$table"->table_info->{'fields'};
32 %labels = map { $_ => ( ref($fields->{$_})
33 ? $fields->{$_}{'label'}