projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
search services by tower/sector, #15950
[freeside.git]
/
FS
/
FS
/
radius_usergroup.pm
diff --git
a/FS/FS/radius_usergroup.pm
b/FS/FS/radius_usergroup.pm
index
2de1423
..
8085fe8
100644
(file)
--- a/
FS/FS/radius_usergroup.pm
+++ b/
FS/FS/radius_usergroup.pm
@@
-96,25
+96,29
@@
and replace methods.
sub check {
my $self = shift;
sub check {
my $self = shift;
-
+ my $svcnum = $self->svcnum;
die "radius_usergroup.groupname is deprecated" if $self->groupname;
$self->ut_numbern('usergroupnum')
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
;
}
|| $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;
=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
}
=item radius_group