do not require a reason to have been suspended

1 files changed, 6 insertions, 4 deletions

diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index c276d7c..04d6512 100644
--- a/FS/FS/part_export/sqlradius.pm
+++ b/FS/FS/part_export/sqlradius.pm
@@ -309,10 +309,12 @@ sub suspended_usergroups {
   my $r = $svc_acct->cust_svc->cust_pkg->last_reason;
   my %reasonmap = $self->_groups_susp_reason_map;
   my $userspec = '';
-  $userspec = $reasonmap{$r->reasonnum}
-    if exists($reasonmap{$r->reasonnum});
-  $userspec = $reasonmap{$r->reason}
-    if (!$userspec && exists($reasonmap{$r->reason}));
+  if ($r) {
+    $userspec = $reasonmap{$r->reasonnum}
+      if exists($reasonmap{$r->reasonnum});
+    $userspec = $reasonmap{$r->reason}
+      if (!$userspec && exists($reasonmap{$r->reason}));
+  }
   my $suspend_user;
   if ($userspec =~ /^d+$/ ){
     $suspend_user = qsearchs( 'svc_acct', { 'svcnum' => $userspec } );