projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9c119c2
)
do not require a reason to have been suspended
author
jeff
<jeff>
Tue, 31 Oct 2006 18:56:32 +0000
(18:56 +0000)
committer
jeff
<jeff>
Tue, 31 Oct 2006 18:56:32 +0000
(18:56 +0000)
FS/FS/part_export/sqlradius.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_export/sqlradius.pm
b/FS/FS/part_export/sqlradius.pm
index
c276d7c
..
04d6512
100644
(file)
--- 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 = '';
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 } );
my $suspend_user;
if ($userspec =~ /^d+$/ ){
$suspend_user = qsearchs( 'svc_acct', { 'svcnum' => $userspec } );