From: levinse <levinse>
Date: Fri, 24 Jun 2011 02:48:44 +0000 (+0000)
Subject: re-write RADIUS groups, RT13274
X-Git-Tag: freeside_2_3_0~66
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=da199f671b3f990c1c81e2806a9a04b1877d9c90;hp=30f9308a0b5b482e1d1f11444078309834a66dd6

re-write RADIUS groups, RT13274
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 9a2f0092b..e8c797afa 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -2563,7 +2563,13 @@ sub radius_groups {
       unless ref($self->usergroup) eq 'ARRAY';
     #when provisioning records, export callback runs in svc_Common.pm before
     #radius_usergroup records can be inserted...
-    @{$self->usergroup};
+    my $groups = join(',',@{$self->usergroup});
+    my @groups;
+    return @groups unless length($groups);
+    @groups = qsearch({ 'table'         => 'radius_group',
+                           'extra_sql'     => "where groupnum in ($groups)",
+                        });
+    map { $_->groupname } @groups;
   } else {
      my $format = shift || '';
      my @groups = qsearch({ 'table'         => 'radius_usergroup',