summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2002-10-18 13:23:27 +0000
committerivan <ivan>2002-10-18 13:23:27 +0000
commitb75341fcfedbdcb2d39c6616690a1d59e4b233fc (patch)
tree3efeb425146835cf85810006cefd1ad917c0840e
parent94fb4aafeae9abf099a8a4ee87b72de86c812ce0 (diff)
don't re-insert non-changed usernames to fuzzy cache
-rw-r--r--FS/FS/svc_acct.pm21
1 files changed, 11 insertions, 10 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index c41c30602..b33f3ae29 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -562,18 +562,19 @@ sub replace {
return $error if $error;
}
- #false laziness with sub insert (and cust_main)
- my $queue = new FS::queue {
- 'svcnum' => $new->svcnum,
- 'job' => 'FS::svc_acct::append_fuzzyfiles'
- };
- $error = $queue->insert($new->username);
- if ( $error ) {
- $dbh->rollback if $oldAutoCommit;
- return "queueing job (transaction rolled back): $error";
+ if ( $new->username ne $old->username ) {
+ #false laziness with sub insert (and cust_main)
+ my $queue = new FS::queue {
+ 'svcnum' => $new->svcnum,
+ 'job' => 'FS::svc_acct::append_fuzzyfiles'
+ };
+ $error = $queue->insert($new->username);
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return "queueing job (transaction rolled back): $error";
+ }
}
-
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
''; #no error
}