join(', ', map "part_pkg.$_", fields('part_pkg') );
my $num_cust_svc =
- '( SELECT COUNT(*) FROM cust_svc WHERE cust_pkg.pkgnum = cust_svc.svcnum )';
+ '( SELECT COUNT(*) FROM cust_svc WHERE cust_pkg.pkgnum = cust_svc.pkgnum )';
my @packages = $cust_main->$method( {
'select' => " $cust_pkg_fields, $part_pkg_fields, ".
my %part_pkg = map { /^part_pkg_(.+)$/ or die; ( $1 => $hash{$_} ); }
grep { /^part_pkg_/ } keys %hash;
$cust_pkg->{'_pkgpart'} = new FS::part_pkg \%part_pkg;
+ $cust_pkg->{'_num_cust_svc'} = $cust_pkg->get('num_cust_svc');
}
unless ( $cgi->param('showoldpackages') ) {