diff options
| author | ivan <ivan> | 2002-06-19 00:58:57 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-06-19 00:58:57 +0000 |
| commit | ef6202c5eded27360d058c84cb8cb2b5cf69478f (patch) | |
| tree | 5954de42e6878dbf4aa2cd1ab0b2640fc44ccb8c | |
| parent | 967ff9a298e535bf3ad4611737a99932ed2f6e1a (diff) | |
fix problem provisioning RADIUS groups
caused by kristian/mark/pc-intouch's changes moving exports into svc_Common -
changed sequence of events such that groups were not provisioned when the
sqlradius export was run
| -rw-r--r-- | FS/FS/svc_acct.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 9186e8107..0be6e5b8d 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -931,8 +931,14 @@ Returns all RADIUS groups for this account (see L<FS::radius_usergroup>). sub radius_groups { my $self = shift; - map { $_->groupname } - qsearch('radius_usergroup', { 'svcnum' => $self->svcnum } ); + if ( $self->usergroup ) { + #when provisioning records, export callback runs in svc_Common.pm before + #radius_usergroup records can be inserted... + @{$self->usergroup}; + } else { + map { $_->groupname } + qsearch('radius_usergroup', { 'svcnum' => $self->svcnum } ); + } } =back |