diff options
author | ivan <ivan> | 2009-03-30 05:08:53 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-03-30 05:08:53 +0000 |
commit | 5a66188aae7af4c05345c358f181b523fb2270fa (patch) | |
tree | be8b6fdabe892a3bbdf6c162b5e44c661f5d0ac6 /FS | |
parent | 259747e66fcb16f3b84bf4a0e9673517f4ccd1d2 (diff) |
and hopefully actually using the count will finally do it, RT#5083
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/cust_pkg.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 86ce25566..348b1e498 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1415,14 +1415,14 @@ services. sub cust_svc { my $self = shift; + return () unless $self->num_cust_svc(@_); + 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; + cluck "cust_pkg->cust_svc called" if $DEBUG > 2; #if ( $self->{'_svcnum'} ) { # values %{ $self->{'_svcnum'}->cache }; @@ -1496,8 +1496,9 @@ sub num_cust_svc { my $self = shift; return $self->{'_num_cust_svc'} - if !@_ && exists($self->{'_num_cust_svc'}) - && $self->{'_num_cust_svc'} =~ /\d/; + if !scalar(@_) + && exists($self->{'_num_cust_svc'}) + && $self->{'_num_cust_svc'} =~ /\d/; my $sql = 'SELECT COUNT(*) FROM cust_svc WHERE pkgnum = ?'; $sql .= ' AND svcpart = ?' if @_; |