diff options
author | ivan <ivan> | 2002-06-19 01:03:56 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-06-19 01:03:56 +0000 |
commit | 0eea8f4255a5c65666db673b302de7585f6f06a1 (patch) | |
tree | 54c3d871b61588c36c4c9dc917cdc6a2c6d4f6c6 | |
parent | ef6202c5eded27360d058c84cb8cb2b5cf69478f (diff) |
and the same for changes...
-rw-r--r-- | FS/FS/svc_acct.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 0be6e5b8d..1d68fc99e 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -505,12 +505,6 @@ sub replace { local $FS::UID::AutoCommit = 0; my $dbh = dbh; - $error = $new->SUPER::replace($old); - if ( $error ) { - $dbh->rollback if $oldAutoCommit; - return $error if $error; - } - $old->usergroup( [ $old->radius_groups ] ); if ( $new->usergroup ) { #(sorta) false laziness with FS::part_export::sqlradius::_export_replace @@ -545,6 +539,12 @@ sub replace { } + $error = $new->SUPER::replace($old); + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return $error if $error; + } + #false laziness with sub insert (and cust_main) my $queue = new FS::queue { 'svcnum' => $new->svcnum, |