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

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 9186e81..0be6e5b 100644 (file)
--- 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