% $bgcolor = $bgcolor1;
% }
%
+% my %hash = $cust_pkg->hash;
+% my %part_pkg = map { /^part_pkg_(.+)$/ or die; $1 => $hash{$_}; }
+% grep { /^part_pkg_/ } keys %hash;
% $cust_pkg->{'_pkgpart'} = new FS::part_pkg { $cust_pkg->hash }; #quelle klud
%
% my %iopt = (
$method = 'all_pkgs';
}
+ my $part_pkg_fields = join(', ', map { "part_pkg.$_ AS part_pkg_$_" }
+ fields('part_pkg')
+ );
+
my @packages = $cust_main->$method( {
- 'select' => 'cust_pkg.*, part_pkg.*',
+ 'select' => "cust_pkg.*, $part_pkg_fields",
'addl_from' => 'LEFT JOIN part_pkg USING ( pkgpart )'
} );
my $num_old_packages = scalar(@packages);