From: ivan <ivan>
Date: Wed, 6 Jan 2010 04:47:48 +0000 (+0000)
Subject: eliminate spurious warnings on usage changes...
X-Git-Tag: root_of_svc_elec_features~558
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=90c18c7cbe323bf4072335745d250cd0fbdd5f5e

eliminate spurious warnings on usage changes...
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 19f292157..c5da82da5 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -2122,8 +2122,8 @@ sub set_usage {
   #$self->snapshot; #not necessary, we retain the old values
   #create an object with the updated usage values
   my $new = qsearchs('svc_acct', { 'svcnum' => $self->svcnum });
-  #call exports
-  my $error = $new->replace($self);
+  local($FS::Record::nowarn_identical) = 1;
+  my $error = $new->replace($self); #call exports
   if ( $error ) {
     $dbh->rollback if $oldAutoCommit;
     return "Error replacing: $error";