From: ivan <ivan>
Date: Fri, 2 Dec 2011 04:12:40 +0000 (+0000)
Subject: better error message for identical replacements
X-Git-Tag: freeside_2_3_1~116
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=c2b8e72c3b1d387bf3cd724bc6d4186ca80cd832

better error message for identical replacements
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 4a5def605..514df491b 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -1309,7 +1309,9 @@ sub replace {
                    ? ($_, $new->getfield($_)) : () } $old->fields;
                    
   unless (keys(%diff) || $no_update_diff ) {
-    carp "[warning]$me $new -> replace $old: records identical"
+    carp "[warning]$me ". ref($new)."->replace ".
+           ( $primary_key ? "$primary_key ".$new->get($primary_key) : '' ).
+         ": records identical"
       unless $nowarn_identical;
     return '';
   }