> if you eliminate services from any package, to reduce it to only one service,
> once gone, they won't reappear.
=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 ]
=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
-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