diff options
author | ivan <ivan> | 1999-11-08 21:38:38 +0000 |
---|---|---|
committer | ivan <ivan> | 1999-11-08 21:38:38 +0000 |
commit | 8a45867abd9f8349bec410910af8ad166e1434a5 (patch) | |
tree | 3ac7db2c40d5294be5ee87bcd6e65f4ea2831f87 /FS/FS/cust_pkg.pm | |
parent | 7c7bc66bd24874e7ccd4fd3445f1da7f88e9679d (diff) |
remove services using pkg_svc table now, oops!
Diffstat (limited to 'FS/FS/cust_pkg.pm')
-rw-r--r-- | FS/FS/cust_pkg.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 2de664b..1dcdab8 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -8,6 +8,7 @@ use FS::cust_svc; use FS::part_pkg; use FS::cust_main; use FS::type_pkgs; +use FS::pkg_svc; # need to 'use' these instead of 'require' in sub { cancel, suspend, unsuspend, # setup } @@ -428,16 +429,15 @@ sub order { push @cust_svc, [ map { ( $svcnum{$_} && @{ $svcnum{$_} } ) ? shift @{ $svcnum{$_} } : (); - } (split(/,/, - qsearchs('part_pkg',{'pkgpart'=>$pkgpart})->getfield('services') - )) + } map { $_->svcpart } qsearch('pkg_svc', { 'pkgpart' => $pkgpart }) ]; } #check for leftover services foreach (keys %svcnum) { next unless @{ $svcnum{$_} }; - return "Leftover services!"; + return "Leftover services, svcpart $_: svcnum ". + join(', ', map { $_->svcnum } @{ $svcnum{$_} } ); } #no leftover services, let's make changes. @@ -490,7 +490,7 @@ sub order { =head1 VERSION -$Id: cust_pkg.pm,v 1.2 1999-08-04 11:50:41 ivan Exp $ +$Id: cust_pkg.pm,v 1.3 1999-11-08 21:38:38 ivan Exp $ =head1 BUGS |