diff options
| -rw-r--r-- | FS/FS/part_export/sqlradius.pm | 10 |
1 files 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 } ); |