From 47cb646c89d4a798d35063f04db39c707eac4f4c Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 30 Apr 2015 05:34:17 -0700
Subject: service dependencies: cust_svc_provision_restrict, RT#33685

---
 FS/FS/part_pkg.pm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

(limited to 'FS/FS/part_pkg.pm')

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 ... ]
-- 
cgit v1.1