From 16baf88722183e3fbfa193f71a5efa60311ec2bc Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Mon, 21 Apr 2003 16:22:44 +0000 Subject: [PATCH] * src/business/business-reports/aging.scm: fix the percentage calculations so we don't get GtkCritical warnings. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/branches/1.8@8242 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 5 +++++ src/business/business-reports/aging.scm | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 670276bf4f..d714565674 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-04-21 Derek Atkins + + * src/business/business-reports/aging.scm: fix the percentage + calculations so we don't get GtkCritical warnings. + 2003-04-21 Christian Stimming * po/de.po: Update German translation (latest transaction.scm diff --git a/src/business/business-reports/aging.scm b/src/business/business-reports/aging.scm index d09e6a9a58..e20b91b7a0 100644 --- a/src/business/business-reports/aging.scm +++ b/src/business/business-reports/aging.scm @@ -532,9 +532,10 @@ totals to report currency") ;; build the table (set! work-to-do (length splits)) + ;; work-done is already zero (for-each (lambda (split) - (set! work-done (+ 1 work-done)) (gnc:report-percent-done (* 50 (/ work-done work-to-do))) + (set! work-done (+ 1 work-done)) (update-company-hash companys split interval-vec @@ -553,9 +554,10 @@ totals to report currency") ;; build the table (set! work-to-do (length company-list)) + (set! work-done 0) (for-each (lambda (company-list-entry) - (set! work-done (+ 1 work-done)) (gnc:report-percent-done (+ 50 (* 50 (/ work-done work-to-do)))) + (set! work-done (+ 1 work-done)) (let* ((monetary-list (convert-to-monetary-list (company-get-buckets (cdr company-list-entry))