From f90f0685f9855a840c8e49c895dcce1ce0752ae0 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 23 Mar 2016 20:58:52 -0700 Subject: [PATCH] optimize customer list, RT#20173 --- FS/FS/pkg_svc.pm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) 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). sub part_svc { my $self = shift; + return $self->{_svcpart} if $self->{_svcpart}; qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } ); } -- 2.20.1