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
This commit is contained in:
Linas Vepstas
2003-04-02 05:11:41 +00:00
parent 9184bf7a1c
commit fa7fcd488b

View File

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