summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2002-10-18 13:23:24 +0000
committerivan <ivan>2002-10-18 13:23:24 +0000
commitbe0ddd81098a95f41419a9e531784326741cca11 (patch)
tree995791117c05980b5dab822573951315f8ea0705
parent2c6c76e763173fea0ac30a5a6c0e50ad7ace147f (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 5b3264cbc..67c075a67 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -571,18 +571,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
}