% foreach my $cust_svc (@cust_svc) {
% my $svc_x = $cust_svc->svc_x;
-% #warn $svc_x;
<TABLE CLASS="fsinnerbox">
+ <TR>
+ <TH COLSPAN=2><% $cust_svc->part_svc->svc |h %></TH>
+ </TR>
% foreach my $field ( grep $svc_x->$_(), @{ $opt{fields} } ) {
<& /elements/tr-td-label.html, 'label' => $labels{$field} &>
<TD BGCOLOR="#ffffff"><% $svc_x->$field() |h %></TD>
my($cust_main, %opt) = @_;
my $table = $opt{table};
-warn $table;
my @cust_svc = ();
foreach my $cust_pkg (
- grep {warn $_->num_cust_svc( 'svcdb'=>$table ); $_->num_cust_svc( 'svcdb'=>$table ); }
+ grep $_->num_cust_svc( 'svcdb'=>$table ),
$cust_main->all_pkgs
) {
my @wtf = $cust_pkg->cust_svc( 'svcdb'=>$table );
- warn scalar(@wtf);
push @cust_svc, $cust_pkg->cust_svc( 'svcdb'=>$table );
}