join(', ', map "cust_pkg.$_", fields('cust_pkg') ). ', '.
join(', ', map "part_pkg.$_", fields('part_pkg') );
- my $num_cust_svc =
- '( SELECT COUNT(*) FROM cust_svc WHERE cust_pkg.pkgnum = cust_svc.pkgnum )';
-
my @packages = $cust_main->$method( {
- 'select' => " $cust_pkg_fields, $part_pkg_fields, ".
- " $num_cust_svc AS num_cust_svc ",
- 'addl_from' => ' LEFT JOIN part_pkg USING ( pkgpart ) ',
+ 'select' => "$cust_pkg_fields, $part_pkg_fields",
+ 'addl_from' => 'LEFT JOIN part_pkg USING ( pkgpart )',
} );
my $num_old_packages = scalar(@packages);
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') ) {