diff options
author | ivan <ivan> | 2009-08-04 23:43:48 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-08-04 23:43:48 +0000 |
commit | 7bb7306b32e48ae29fc91eb969ba70a465d21c2d (patch) | |
tree | 69ea7d02185b66faa8216bff1b6ec692d6c077f0 /FS/bin | |
parent | de7dc370b95f4175dd3119acffe2af2c8f6d735f (diff) |
hopefully ignore errors about deleted accounts and properly finish freeside-sqlradius-reset, RT#5868
Diffstat (limited to 'FS/bin')
-rwxr-xr-x | FS/bin/freeside-sqlradius-reset | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/FS/bin/freeside-sqlradius-reset b/FS/bin/freeside-sqlradius-reset index 5c77747ac..a77bad64f 100755 --- a/FS/bin/freeside-sqlradius-reset +++ b/FS/bin/freeside-sqlradius-reset @@ -53,14 +53,25 @@ foreach my $export ( @exports ) { my @svc_x = map { $_->svc_x } - map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } - grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } + #map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } + #grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) } + # $export->export_svc; + map { @{ $_->[1] } } + grep { scalar( @{ $_->[1] } ) } + map { [ $_, [ qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) ] ] } $export->export_svc; + foreach my $svc_x ( @svc_x ) { - $svc_x->check; #set any fixed usergroup so it'll export even if all - #svc_acct records don't have the group yet + #$svc_x->check; #set any fixed usergroup so it'll export even if all + # #svc_acct records don't have the group yet + #more efficient? + my $x = $svc_x->setfixed( $svc_x->_fieldhandlers); + unless ( ref($x) ) { + warn "WARNING: can't set fixed usergroups for svcnum ". $svc_x->svcnum. + "\n"; + } if ($overlimit_groups && $svc_x->overlimit) { $svc_x->usergroup( &{ $svc_x->_fieldhandlers->{'usergroup'} } |