diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-12-28 16:11:46 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-12-28 16:11:46 -0800 |
commit | 32072dbf59a054529f5304574c0f56f9567d14d0 (patch) | |
tree | eaca19adc8da8daf4b0eaaed1a16c3a8e5a53cb0 /FS/FS/pkg_svc.pm | |
parent | 66c235e33563ccd785ff9e0828398f778a75fb9f (diff) |
autoload methods returning foreign records, RT#13971
Diffstat (limited to 'FS/FS/pkg_svc.pm')
-rw-r--r-- | FS/FS/pkg_svc.pm | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/FS/FS/pkg_svc.pm b/FS/FS/pkg_svc.pm index f79bb5e..4efffd9 100644 --- a/FS/FS/pkg_svc.pm +++ b/FS/FS/pkg_svc.pm @@ -1,12 +1,7 @@ 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 ); =head1 NAME @@ -130,24 +125,10 @@ sub check { Returns the FS::part_pkg object (see L<FS::part_pkg>). -=cut - -sub part_pkg { - my $self = shift; - qsearchs( 'part_pkg', { 'pkgpart' => $self->pkgpart } ); -} - =item part_svc Returns the FS::part_svc object (see L<FS::part_svc>). -=cut - -sub part_svc { - my $self = shift; - qsearchs( 'part_svc', { 'svcpart' => $self->svcpart } ); -} - =back =head1 BUGS |