AUDIT: r23623 - gnucash/trunk/src/report/standard-reports - Prevent gnc-numeric overflow in advanced portfolio report

[Geert Janssens]

Author: gjanssens
Date: 2013-12-26 10:46:19 -0500 (Thu, 26 Dec 2013)
New Revision: 23623
Trac: http://svn.gnucash.org/trac/changeset/23623

Modified:
   gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
Log:
Prevent gnc-numeric overflow in advanced portfolio report

Patch by zz-bugzilla-9297 at qwerty.co.il
BP

Modified: gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2013-12-26 14:03:48 UTC (rev 23622)
+++ gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2013-12-26 15:46:19 UTC (rev 23623)
@@ -196,7 +196,7 @@
   ;; sum up the contents of the b-list built by basis-builder below
   (define (sum-basis b-list)
     (if (not (eqv? b-list '()))
-	(gnc-numeric-add (gnc-numeric-mul (caar b-list) (cdar b-list) GNC-DENOM-AUTO GNC-RND-ROUND)
+	(gnc-numeric-add (gnc-numeric-mul (caar b-list) (cdar b-list) GNC-DENOM-AUTO (logior GNC-DENOM-REDUCE GNC-RND-ROUND))
 			 (sum-basis (cdr b-list)) 100 GNC-RND-ROUND)
 	(gnc-numeric-zero)
 	)