diff options
author | ivan <ivan> | 2002-03-26 00:32:46 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-03-26 00:32:46 +0000 |
commit | c6da895a2fb2c233716381b7e45ebbeb1c2f6aaa (patch) | |
tree | 2ccff8ded5a939ecdb06d72ae1df0e737af3accc /bin | |
parent | 79580638b7adc429cc57fc434d83f53e34df018d (diff) |
further export bugfixing
add 10 kid limit to freeside-queued
sqlradius_reset now works (closes: Bug#372)
Diffstat (limited to 'bin')
-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; } } |