diff options
| -rw-r--r-- | FS/FS/cust_pkg.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 78f4bedb9..86ce25566 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1415,13 +1415,15 @@ services. sub cust_svc { my $self = shift; - cluck "cust_pkg->cust_svc called" if $DEBUG > 1; - if ( @_ ) { return qsearch( 'cust_svc', { 'pkgnum' => $self->pkgnum, 'svcpart' => shift, } ); } + return () unless $self->num_cust_svc; + + cluck "cust_pkg->cust_svc called" if $DEBUG > 1; + #if ( $self->{'_svcnum'} ) { # values %{ $self->{'_svcnum'}->cache }; #} else { |