From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 24 Mar 2016 03:58:52 +0000 (-0700)
Subject: optimize customer list, RT#20173
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=f90f0685f9855a840c8e49c895dcce1ce0752ae0;p=freeside.git

optimize customer list, RT#20173
---

diff --git a/FS/FS/pkg_svc.pm b/FS/FS/pkg_svc.pm
index fa82ec05b..666d76b73 100644
--- a/FS/FS/pkg_svc.pm
+++ b/FS/FS/pkg_svc.pm
@@ -1,12 +1,19 @@
 package FS::pkg_svc;
+use base qw(FS::Record);
 
 use strict;
-use vars qw( @ISA );
 use FS::Record qw( qsearchs );
 use FS::part_pkg;
 use FS::part_svc;
 
-@ISA = qw( FS::Record );
+our $cache_enabled = 0;
+
+sub _simplecache {
+  my( $self, $hashref ) = @_;
+  if ( $cache_enabled && $hashref->{'svc'} ) {
+    $self->{'_svcpart'} = FS::part_svc->new($hashref);
+  }
+}
 
 =head1 NAME
 
@@ -148,6 +155,7 @@ Returns the FS::part_svc object (see L<FS::part_svc>).
 
 sub part_svc {
   my $self = shift;
+  return $self->{_svcpart} if $self->{_svcpart};
   qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } );
 }