From fa7fcd488bc1c9338acdbd6888cf60b476c4799b Mon Sep 17 00:00:00 2001
From: Linas Vepstas <linas@linas.org>
Date: Wed, 2 Apr 2003 05:11:41 +0000
Subject: [PATCH] hack in lot scrubbing, jsut for test for now

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8174 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/gnome/window-acct-tree.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/gnome/window-acct-tree.c b/src/gnome/window-acct-tree.c
index 38f49f5848..372d6e8097 100644
--- a/src/gnome/window-acct-tree.c
+++ b/src/gnome/window-acct-tree.c
@@ -655,6 +655,10 @@ gnc_acct_tree_window_menu_scrub_cb(GtkWidget * widget,
 
   xaccAccountScrubOrphans (account);
   xaccAccountScrubImbalance (account);
+/* #define TEST_LOT_SCRUBBING */
+#ifdef TEST_LOT_SCRUBBING
+  xaccAccountScrubLotsBalance (account);
+#endif
 
   gnc_resume_gui_refresh ();
 }
@@ -677,6 +681,9 @@ gnc_acct_tree_window_menu_scrub_sub_cb(GtkWidget * widget,
 
   xaccAccountTreeScrubOrphans (account);
   xaccAccountTreeScrubImbalance (account);
+#ifdef TEST_LOT_SCRUBBING
+  xaccAccountTreeScrubLotsBalance (account);
+#endif
 
   gnc_resume_gui_refresh ();
 }
@@ -692,6 +699,10 @@ gnc_acct_tree_window_menu_scrub_all_cb(GtkWidget * widget,
   xaccGroupScrubOrphans (group);
   xaccGroupScrubImbalance (group);
 
+#ifdef TEST_LOT_SCRUBBING
+  xaccGroupScrubLotsBalance (group);
+#endif
+
   gnc_resume_gui_refresh ();
 }