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

@@ -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 ();
 }