From: khoff <khoff>
Date: Sat, 10 Mar 2007 00:16:51 +0000 (+0000)
Subject: Added $FS::Record::no_update_diff flag to update "identical" records anyway.
X-Git-Tag: TRIXBOX_2_6~597
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=99816612a0f864a105aaa8663ce618e604128ed6;hp=fe5f1d41372b0871120e6d2b4ebc9e2c1fd62726

Added $FS::Record::no_update_diff flag to update "identical" records anyway.
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index e43829417..0afe3ecd1 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -3,7 +3,7 @@ package FS::Record;
 use strict;
 use vars qw( $AUTOLOAD @ISA @EXPORT_OK $DEBUG
              $conf $me
-             %virtual_fields_cache $nowarn_identical );
+             %virtual_fields_cache $nowarn_identical $no_update_diff );
 use Exporter;
 use Carp qw(carp cluck croak confess);
 use File::CounterFile;
@@ -30,6 +30,7 @@ $DEBUG = 0;
 $me = '[FS::Record]';
 
 $nowarn_identical = 0;
+$no_update_diff = 0;
 
 my $rsa_module;
 my $rsa_loaded;
@@ -1041,7 +1042,7 @@ sub replace {
   my %diff = map { ($new->getfield($_) ne $old->getfield($_))
                    ? ($_, $new->getfield($_)) : () } $old->fields;
                    
-  unless ( keys(%diff) ) {
+  unless (keys(%diff) || $no_update_diff ) {
     carp "[warning]$me $new -> replace $old: records identical"
       unless $nowarn_identical;
     return '';