From: ivan <ivan>
Date: Mon, 30 Mar 2009 04:50:13 +0000 (+0000)
Subject: and hopefully actually using the count will finally do it, RT#5083
X-Git-Tag: root_of_svc_elec_features~1322
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=259747e66fcb16f3b84bf4a0e9673517f4ccd1d2

and hopefully actually using the count will finally do it, RT#5083
---

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 {