diff options
Diffstat (limited to 'FS')
| -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 863e962bb..d262a04e0 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 |