diff options
Diffstat (limited to 'bin/sqlradius_reset')
| -rw-r--r-- | bin/sqlradius_reset | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/bin/sqlradius_reset b/bin/sqlradius_reset index fe31d67f9..501685449 100644 --- a/bin/sqlradius_reset +++ b/bin/sqlradius_reset @@ -2,7 +2,10 @@ use strict; use FS::UID qw(adminsuidsetup); +use FS::Record qw(qsearch qsearchs); use FS::part_export; +use FS::svc_acct; +use FS::cust_svc; my $user = shift or die &usage; adminsuidsetup $user; @@ -23,17 +26,13 @@ foreach my $export ( @exports ) { foreach my $export ( @exports ) { my @svc_acct = - map { qsearchs{'svc_acct', { 'svcnum' => $_->svcnum } ) } + map { qsearchs('svc_acct', { 'svcnum' => $_->svcnum } ) } qsearch('cust_svc', { 'svcpart' => $export->part_svc->svcpart } ); foreach my $svc_acct ( @svc_acct ) { - #flase laziness with FS::svc_acct::insert (like it matters) - my $error = $part_export->export_insert($self); - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return "exporting to ". $part_export->exporttype. - " (transaction rolled back): $error"; - } + #false laziness with FS::svc_acct::insert (like it matters) + my $error = $export->export_insert($svc_acct); + die $error if $error; } } |