X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fsqlradius_reset;h=501685449c0da65642d532f19ee2fdcda6ab1a00;hb=c6da895a2fb2c233716381b7e45ebbeb1c2f6aaa;hp=fe31d67f95320340073647bc42f81ebe7ba443f9;hpb=79580638b7adc429cc57fc434d83f53e34df018d;p=freeside.git

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;
 
   }
 }