From a29ca7854db66e3fa41ad6973aab65a148cb9145 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Mon, 7 May 2007 06:35:55 +0000
Subject: sqlradius usergroup tools

---
 FS/bin/freeside-sqlradius-reset | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'FS/bin/freeside-sqlradius-reset')

diff --git a/FS/bin/freeside-sqlradius-reset b/FS/bin/freeside-sqlradius-reset
index 2ac5012d4..a2da7452e 100755
--- a/FS/bin/freeside-sqlradius-reset
+++ b/FS/bin/freeside-sqlradius-reset
@@ -39,6 +39,7 @@ foreach my $export ( @exports ) {
 foreach my $export ( @exports ) {
 
   #my @svcparts = map { $_->svcpart } $export->export_svc;
+  my $overlimit_groups = $export->option('overlimit_groups');
 
   my @svc_acct =
     map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) }
@@ -51,6 +52,12 @@ foreach my $export ( @exports ) {
     $svc_acct->check; #set any fixed usergroup so it'll export even if all
                       #svc_acct records don't have the group yet
 
+    if ($overlimit_groups && $svc_acct->overlimit) {
+      $svc_acct->usergroup( &{ $svc_acct->_fieldhandlers->{'usergroup'} }
+                            ($svc_acct, $overlimit_groups)
+                          );
+    }
+
     #false laziness with FS::svc_acct::insert (like it matters)
     my $error = $export->export_insert($svc_acct);
     die $error if $error;
-- 
cgit v1.2.1