From: jeff <jeff>
Date: Tue, 31 Oct 2006 18:56:32 +0000 (+0000)
Subject: do not require a reason to have been suspended
X-Git-Tag: freeside_1_7_2~1^2~245
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=02e589204e6289b1b86ce26a138b4bf864a3c76a;p=freeside.git

do not require a reason to have been suspended
---

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 } );