From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 10 Dec 2015 09:57:28 +0000 (-0800)
Subject: avoid throwing an error on unlinked services, RT#31388
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a32c137aecd37144e276c3339f66a15318c80698

avoid throwing an error on unlinked services, RT#31388
---

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 9d7eb7a71..29298b8d0 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -1119,7 +1119,7 @@ sub _check_provision_hold {
 
   # check status of cust_pkg
   my $cust_pkg = $self->cust_pkg;
-  return '' unless $cust_pkg->status eq 'on hold';
+  return '' unless $cust_pkg && $cust_pkg->status eq 'on hold';
 
   # check flag on this svc
   # small false laziness with $self->pkg_svc