summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2002-06-19 01:03:56 +0000
committerivan <ivan>2002-06-19 01:03:56 +0000
commit0eea8f4255a5c65666db673b302de7585f6f06a1 (patch)
tree54c3d871b61588c36c4c9dc917cdc6a2c6d4f6c6
parentef6202c5eded27360d058c84cb8cb2b5cf69478f (diff)
and the same for changes...
-rw-r--r--FS/FS/svc_acct.pm12
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,