From 74a69a5846ed37a2fadc2b000e7e773d2b309439 Mon Sep 17 00:00:00 2001
From: James LewisMoss <dres@debian.org>
Date: Thu, 10 May 2001 16:12:52 +0000
Subject: [PATCH] * src/engine/gnc-book.c (gnc_book_set_group): free account
 group when setting new one.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4153 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/engine/gnc-book.c | 5 +++--
 src/engine/gnc-book.h | 1 +
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/engine/gnc-book.c b/src/engine/gnc-book.c
index 776667f231..1f981fabbe 100644
--- a/src/engine/gnc-book.c
+++ b/src/engine/gnc-book.c
@@ -197,8 +197,9 @@ gnc_book_get_group (GNCBook *book)
 void
 gnc_book_set_group (GNCBook *book, AccountGroup *grp)
 {
-   if (!book) return;
-   book->topgroup = grp;
+  if(!book) return;
+  if(book->topgroup) xaccFreeAccountGroup(book->topgroup);
+  book->topgroup = grp;
 }
 
 /* ---------------------------------------------------------------------- */
diff --git a/src/engine/gnc-book.h b/src/engine/gnc-book.h
index 423ae6d355..aa75182c1e 100644
--- a/src/engine/gnc-book.h
+++ b/src/engine/gnc-book.h
@@ -120,6 +120,7 @@ GNCBackendError gnc_book_pop_error (GNCBook *book);
 
 
 AccountGroup *gnc_book_get_group (GNCBook *book);
+void gnc_book_set_group(GNCBook *book, AccountGroup *group);
 GNCPriceDB   *gnc_book_get_pricedb (GNCBook *book);
 
 guint gnc_book_count_transactions(GNCBook *book);