diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-03-23 20:56:03 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-03-23 20:56:03 -0700 |
commit | bb3fa983a42ded23b90e61c67b28ab53694e7965 (patch) | |
tree | 77fa832bcf8a83113c62626d58c29a43dac2ad14 /FS/FS/pkg_svc.pm | |
parent | 747fc5e700ae36409be707b202c574a9b15d4c70 (diff) |
optimize customer list, RT#20173
Diffstat (limited to 'FS/FS/pkg_svc.pm')
-rw-r--r-- | FS/FS/pkg_svc.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/FS/FS/pkg_svc.pm b/FS/FS/pkg_svc.pm index b2dc87042..5c6070303 100644 --- a/FS/FS/pkg_svc.pm +++ b/FS/FS/pkg_svc.pm @@ -2,6 +2,17 @@ package FS::pkg_svc; use base qw(FS::Record); use strict; +use FS::Record qw( qsearchs ); +use FS::part_svc; + +our $cache_enabled = 0; + +sub _simplecache { + my( $self, $hashref ) = @_; + if ( $cache_enabled && $hashref->{'svc'} ) { + $self->{'_svcpart'} = FS::part_svc->new($hashref); + } +} =head1 NAME @@ -132,6 +143,14 @@ Returns the FS::part_pkg object (see L<FS::part_pkg>). Returns the FS::part_svc object (see L<FS::part_svc>). +=cut + +sub part_svc { + my $self = shift; + return $self->{_svcpart} if $self->{_svcpart}; + qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } ); +} + =back =head1 BUGS |