diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-04-30 05:34:17 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-04-30 05:34:17 -0700 |
commit | 47cb646c89d4a798d35063f04db39c707eac4f4c (patch) | |
tree | ebab27226a79381141eb0fec4b81b3b032190cb1 /FS/FS/part_pkg.pm | |
parent | 3ef3c5061e6de2dd885987e844ea3122aafc4df6 (diff) |
service dependencies: cust_svc_provision_restrict, RT#33685
Diffstat (limited to 'FS/FS/part_pkg.pm')
-rw-r--r-- | FS/FS/part_pkg.pm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index e473d09..4407ec6 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -797,17 +797,7 @@ src_svcpart and link_type. =cut sub part_svc_link { - my( $self, %opt ) = @_; - - my $agentnum = $self->agentnum; - - qsearch({ 'table' => 'part_svc_link', - 'hashref' => \%opt, - 'extra_sql' => - $agentnum - ? "AND ( agentnum IS NULL OR agentnum = $agentnum )" - : 'AND agentnum IS NULL', - }); + FS::part_svc_link->by_agentnum( shift->agentnum, @_ ); } =item supersede OLD [, OPTION => VALUE ... ] |