Fix division by zero error in tax report

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@10348 57a11ea4-9604-0410-9ed3-97b8803252fd
22 years ago · dba6d1536d
parent d34a56a548
commit dba6d1536d
1 changed files with 3 additions and 1 deletions
--- a/src/report/locale-specific/us/taxtxf.scm
+++ b/src/report/locale-specific/us/taxtxf.scm
@ -632,7 +632,9 @@
                   (gnc:account-get-type account) #f)))

 	(set! work-done (+ 1 work-done))
-	(gnc:report-percent-done (* 100 (/ work-done work-to-do)))
+	(gnc:report-percent-done (* 100 (if (> work-to-do 0)
+					    (/ work-done work-to-do)
+					    1)))
        (if (gnc:account-is-inc-exp? account)
            (let* ((children (gnc:account-get-children account))
                   (to-special #f)	; clear special-splits-period