gnucash maint: Bug 649933 - Creating cash flow report takes a long time

[Geert Janssens]

Updated	 via  https://github.com/Gnucash/gnucash/commit/8900af27 (commit)
	from  https://github.com/Gnucash/gnucash/commit/629bce12 (commit)



commit 8900af27ceb2acdedc92dcb13648b54077dc24a6
Author: Mike <mike-bz at erose.org>
Date:   Tue Feb 10 19:50:33 2015 +0100

    Bug 649933 - Creating cash flow report takes a long time
    
    The progress bar seems to induce a non-neglectable performance hit
    on OS X and possibly Windows as well. This patch reduces the update
    frequency of the progress bar.

diff --git a/src/report/standard-reports/cash-flow.scm b/src/report/standard-reports/cash-flow.scm
index 4c57d15..4e8cebd 100644
--- a/src/report/standard-reports/cash-flow.scm
+++ b/src/report/standard-reports/cash-flow.scm
@@ -260,7 +260,8 @@
                   (for-each
                     (lambda (split)
 		      (set! work-done (+ 1 work-done))
-		      (gnc:report-percent-done (* 85 (/ work-done splits-to-do)))
+		      (if (= (modulo work-done 100) 0)
+		          (gnc:report-percent-done (* 85 (/ work-done splits-to-do))))
                       (let ((parent (xaccSplitGetParent split)))
                         (if (and (gnc:timepair-le (gnc-transaction-get-date-posted parent) to-date-tp)
                                  (gnc:timepair-ge (gnc-transaction-get-date-posted parent) from-date-tp))



Summary of changes:
 src/report/standard-reports/cash-flow.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)