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 | |
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.
-rw-r--r-- | FS/FS/part_pkg.pm | 6 | ||||
-rw-r--r-- | README | 2 |
2 files changed, 4 insertions, 4 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 @@ -1,4 +1,4 @@ -Freeside, (pre-1.2.2 or pre.1.3.0?) +Freeside, 1.2.2 Copyright (C) 1999 Ivan Kohler Copyright (C) 1999 Silicon Interactive Software Design |