[Gnucash-changes] Add extra debugging (#165571).

[Derek Atkins]

Log Message:
-----------
Add extra debugging (#165571).

	* src/engine/Scrub.c:
	* src/engine/Transaction.c:
	  Add the transaction guid to some error warning messages.
	  Fixes #165571.

Tags:
----
gnucash-1-8-branch

Modified Files:
--------------
    gnucash:
        ChangeLog
    gnucash/src/engine:
        Scrub.c
        Transaction.c

Revision Data
-------------
Index: ChangeLog
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/ChangeLog,v
retrieving revision 1.1461.2.390
retrieving revision 1.1461.2.391
diff -LChangeLog -LChangeLog -u -r1.1461.2.390 -r1.1461.2.391
--- ChangeLog
+++ ChangeLog
@@ -1,3 +1,10 @@
+2005-01-30  Derek Atkins  <derek at ihtfp.com>
+
+	* src/engine/Scrub.c:
+	* src/engine/Transaction.c:
+	  Add the transaction guid to some error warning messages.
+	  Fixes #165571.
+
 2005-01-29  Derek Atkins  <derek at ihtfp.com>
 
 	Thomas Bushnell's patch to protect non-backup pruning (#164875)
Index: Transaction.c
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/engine/Transaction.c,v
retrieving revision 1.261.2.4
retrieving revision 1.261.2.5
diff -Lsrc/engine/Transaction.c -Lsrc/engine/Transaction.c -u -r1.261.2.4 -r1.261.2.5
--- src/engine/Transaction.c
+++ src/engine/Transaction.c
@@ -1508,16 +1508,22 @@
   }
   else if (!gnc_commodity_equiv (retval,trans->common_currency))
   {
-    PWARN ("expected common currency %s but found %s\n",
+    char *guid_str = guid_to_string(xaccTransGetGUID(trans));
+    PWARN ("expected common currency %s but found %s in txn %s\n",
            gnc_commodity_get_unique_name (trans->common_currency),
-           gnc_commodity_get_unique_name (retval));
+           gnc_commodity_get_unique_name (retval),
+	   guid_str);
+    g_free(guid_str);
   }
 
   if (NULL == retval)
   {
      /* in every situation I can think of, this routine should return 
       * common currency.  So make note of this ... */
-     PWARN ("unable to find a common currency, and that is strange.");
+     char *guid_str = guid_to_string(xaccTransGetGUID(trans));
+     PWARN ("unable to find a common currency in txn %s, and that is strange.",
+	    guid_str);
+     g_free(guid_str);
   }
 
   return retval;
Index: Scrub.c
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/engine/Scrub.c,v
retrieving revision 1.43
retrieving revision 1.43.2.1
diff -Lsrc/engine/Scrub.c -Lsrc/engine/Scrub.c -u -r1.43 -r1.43.2.1
--- src/engine/Scrub.c
+++ src/engine/Scrub.c
@@ -412,7 +412,9 @@
   }
   else
   {
-    PWARN ("no common transaction currency found");
+    char *guid_str = guid_to_string(xaccTransGetGUID(trans));
+    PWARN ("no common transaction currency found (guid %s)", guid_str);
+    g_free(guid_str);
   }
   {
     Split *sp;