From 02e589204e6289b1b86ce26a138b4bf864a3c76a Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Tue, 31 Oct 2006 18:56:32 +0000
Subject: [PATCH] do not require a reason to have been suspended

---
 FS/FS/part_export/sqlradius.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index c276d7cf5..04d65126d 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 } );
-- 
2.11.0