From: ivan <ivan>
Date: Wed, 6 Jan 2010 04:48:41 +0000 (+0000)
Subject: eliminate spurious warnings on usage changes...
X-Git-Tag: freeside_1_9_2~134
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=8fea4e3758a140576a1a0868ede7574048d782f4;hp=4b503bee677b9066f2996966fd3b4a186a938501;p=freeside.git

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";