diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-03-23 20:56:04 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-03-23 20:56:04 -0700 |
commit | 0e8bb4e9d89852127652a3264fb2d91b145980f9 (patch) | |
tree | 7885a265a49ea5f5fac24bd2bf2b6aaea475b8dc | |
parent | 79019df554d5c447da8b1df135b34d66a0cb69c6 (diff) |
optimize customer list, RT#20173
-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 b2dc870..5c60703 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 |