don't re-my var, quiet warning

[freeside.git] / FS / bin / freeside-radgroup

diff --git a/FS/bin/freeside-radgroup b/FS/bin/freeside-radgroup
index e1a8197..ed85626 100644 (file)
--- a/FS/bin/freeside-radgroup
+++ b/FS/bin/freeside-radgroup
@@ -20,7 +20,7 @@ if ( lc($action) eq 'add' ) {
     next if grep { $_ eq $groupname } @groups;
     push @groups, $groupname;
     my %hash = $svc_acct->hash;
-    $hash{radius_groups} = \@groups;
+    $hash{usergroup} = \@groups;
     my $new = new FS::svc_acct \%hash;
     my $error = $new->replace($svc_acct);
     die $error if $error;