diff options
author | mark <mark> | 2011-11-10 21:40:05 +0000 |
---|---|---|
committer | mark <mark> | 2011-11-10 21:40:05 +0000 |
commit | 307a7d85568a15f5eb0d97c648507484108fcc56 (patch) | |
tree | 22e4da31ad00e299cea5dbf983234f839f17225b /FS/FS/radius_usergroup.pm | |
parent | cfbfa38f73888ee2c073ad7500c1fe147cde1c81 (diff) |
RADIUS groups for svc_broadband, #14695
Diffstat (limited to 'FS/FS/radius_usergroup.pm')
-rw-r--r-- | FS/FS/radius_usergroup.pm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/FS/FS/radius_usergroup.pm b/FS/FS/radius_usergroup.pm index 2de142397..8085fe805 100644 --- a/FS/FS/radius_usergroup.pm +++ b/FS/FS/radius_usergroup.pm @@ -96,25 +96,29 @@ and replace methods. sub check { my $self = shift; - + my $svcnum = $self->svcnum; die "radius_usergroup.groupname is deprecated" if $self->groupname; $self->ut_numbern('usergroupnum') - || $self->ut_foreign_key('svcnum','svc_acct','svcnum') + || ( $self->ut_foreign_key('svcnum','svc_acct','svcnum') + && $self->ut_foreign_key('svcnum','svc_broadband','svcnum') + && "Can't find radius_usergroup.svcnum $svcnum in svc_acct.svcnum or svc_broadband.svcnum" ) || $self->ut_foreign_key('groupnum','radius_group','groupnum') || $self->SUPER::check ; } -=item svc_acct +=item svc_x -Returns the account associated with this record (see L<FS::svc_acct>). +Returns the account associated with this record (see L<FS::svc_acct> and +L<FS::svc_broadband>). =cut sub svc_acct { my $self = shift; - qsearchs('svc_acct', { svcnum => $self->svcnum } ); + qsearchs('svc_acct', { svcnum => $self->svcnum } ) || + qsearchs('svc_broadband', { svcnum => $self->svcnum } ) } =item radius_group |