diff options
| author | ivan <ivan> | 1999-08-20 08:27:06 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-08-20 08:27:06 +0000 |
| commit | 75f1f7889d2a653c61adb689c029e8c8a7544565 (patch) | |
| tree | 26aca325a43e4c7c844327487c1b65d342094a32 /FS/FS/part_pkg.pm | |
| parent | 4dd18328e3ef62f946ea30f1450a66c179417cf6 (diff) | |
fix for bug noticed by Martin G. Bayerle:
> if you eliminate services from any package, to reduce it to only one service,
> once gone, they won't reappear.
Diffstat (limited to 'FS/FS/part_pkg.pm')
| -rw-r--r-- | FS/FS/part_pkg.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 863e962..d262a04 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -134,13 +134,13 @@ sub check { =item pkg_svc Returns all FS::pkg_svc objects (see L<FS::pkg_svc>) for this package -definition. +definition (with non-zero quantity). =cut sub pkg_svc { my $self = shift; - qsearch( 'pkg_svc', { 'pkgpart' => $self->pkgpart } ); + grep { $_->quantity } qsearch( 'pkg_svc', { 'pkgpart' => $self->pkgpart } ); } =item svcpart [ SVCDB ] @@ -166,7 +166,7 @@ sub svcpart { =head1 VERSION -$Id: part_pkg.pm,v 1.1 1999-08-04 09:03:53 ivan Exp $ +$Id: part_pkg.pm,v 1.2 1999-08-20 08:27:06 ivan Exp $ =head1 BUGS |