From be8c5855d85b18207b61ed7953a7dad93604317e Mon Sep 17 00:00:00 2001
From: Linas Vepstas <linas@linas.org>
Date: Sun, 26 May 2002 04:44:53 +0000
Subject: [PATCH] added tracing; misc lot-related bug fix

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6915 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/backend/file/gnc-account-xml-v2.c | 17 +++++++++++------
 src/backend/file/gnc-lot-xml-v2.c     |  7 +++++++
 2 files changed, 18 insertions(+), 6 deletions(-)

diff --git a/src/backend/file/gnc-account-xml-v2.c b/src/backend/file/gnc-account-xml-v2.c
index e0b47bf6ba..1164958b7e 100644
--- a/src/backend/file/gnc-account-xml-v2.c
+++ b/src/backend/file/gnc-account-xml-v2.c
@@ -77,9 +77,9 @@ gnc_account_dom_tree_create(Account *act)
     const char *str;
     kvp_frame *kf;
     xmlNodePtr ret;
-    xmlNodePtr toaddto;
     GList *n;
 
+    ENTER ("(account=%p)", act);
 
     ret = xmlNewNode(NULL, gnc_account_string);
     xmlSetProp(ret, "version", account_version_string);
@@ -128,12 +128,17 @@ gnc_account_dom_tree_create(Account *act)
                      xaccAccountGetGUID(xaccAccountGetParentAccount(act))));
     }
 
-    toaddto = xmlNewChild(ret, NULL, act_lots_string, NULL);
-
-    for (n=xaccAccountGetLotList(act); n; n=n->next)
+    n = xaccAccountGetLotList (act);
+    PINFO ("lot list=%p", n);
+    if (n)
     {
-       GNCLot * lot =n->data;
-       xmlAddChild(toaddto, gnc_lot_dom_tree_create(lot));
+       xmlNodePtr toaddto = xmlNewChild(ret, NULL, act_lots_string, NULL);
+
+       for (; n; n=n->next)
+       {
+          GNCLot * lot = n->data;
+          xmlAddChild(toaddto, gnc_lot_dom_tree_create(lot));
+       }
     }
     
     return ret;
diff --git a/src/backend/file/gnc-lot-xml-v2.c b/src/backend/file/gnc-lot-xml-v2.c
index d1c8126bde..d587acb97c 100644
--- a/src/backend/file/gnc-lot-xml-v2.c
+++ b/src/backend/file/gnc-lot-xml-v2.c
@@ -62,6 +62,7 @@ gnc_lot_dom_tree_create(GNCLot *lot)
     xmlNodePtr ret;
     kvp_frame *kf;
 
+	 ENTER("(lot=%p)", lot);
     ret = xmlNewNode(NULL, gnc_lot_string);
     xmlSetProp(ret, "version", lot_version_string);
 
@@ -94,6 +95,7 @@ lot_id_handler (xmlNodePtr node, gpointer p)
     struct lot_pdata *pdata = p;
     GUID *guid;
 
+	 ENTER("(lot=%p)", pdata->lot);
     guid = dom_tree_to_guid(node);
     gnc_lot_set_guid(pdata->lot, *guid);
 
@@ -108,6 +110,7 @@ lot_slots_handler (xmlNodePtr node, gpointer p)
     struct lot_pdata *pdata = p;
     gboolean success;
 
+	 ENTER("(lot=%p)", pdata->lot);
     success = dom_tree_to_kvp_frame_given
       (node, gnc_lot_get_slots (pdata->lot));
 
@@ -135,6 +138,7 @@ gnc_lot_end_handler(gpointer data_for_children,
     gxpf_data *gdata = (gxpf_data*)global_data;
     GNCBook *book = gdata->bookdata;
 
+	 ENTER("(lot=%p)", lot);
     successful = TRUE;
 
     if(parent_data)
@@ -169,6 +173,7 @@ dom_tree_to_lot (xmlNodePtr node, GNCBook *book)
     GNCLot *lot;
     gboolean successful;
 
+	 ENTER("(lot=%p)", lot);
     lot = gnc_lot_new(book);
 
     pdata.lot = lot;
@@ -191,3 +196,5 @@ gnc_lot_sixtp_parser_create(void)
 {
     return sixtp_dom_parser_new(gnc_lot_end_handler, NULL, NULL);
 }
+
+/* ================== END OF FILE ========================== */