diff options
Diffstat (limited to 'FS/bin/freeside-sqlradius-reset')
| -rwxr-xr-x | FS/bin/freeside-sqlradius-reset | 7 |
1 files changed, 7 insertions, 0 deletions
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; |