[Gnucash-changes] r12292 - gnucash/trunk - Fix the "share decimal places" option.

[David Hampton]

Author: hampton
Date: 2006-01-07 13:42:58 -0500 (Sat, 07 Jan 2006)
New Revision: 12292
Trac: http://svn.gnucash.org/trac/changeset/12292

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
   gnucash/trunk/src/report/standard-reports/portfolio.scm
Log:
Fix the "share decimal places" option.

Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2006-01-07 17:15:06 UTC (rev 12291)
+++ gnucash/trunk/ChangeLog	2006-01-07 18:42:58 UTC (rev 12292)
@@ -1,3 +1,9 @@
+2006-01-07  David Hampton  <hampton at employees.org>
+
+	* src/report/standard-reports/portfolio.scm:
+	* src/report/standard-reports/advanced-portfolio.scm: Fix the
+	"share decimal places" option.
+
 2006-01-07  Christian Stimming  <stimming at tuhh.de>
 
 	* src/gnome/gnc-plugin-page-register.c,

Modified: gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2006-01-07 17:15:06 UTC (rev 12291)
+++ gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2006-01-07 18:42:58 UTC (rev 12292)
@@ -140,8 +140,9 @@
                                 total-gain)
 
    (let ((share-print-info
-	  (gnc:share-print-info-places (get-option gnc:pagename-general
-						   optname-shares-digits))))
+	  (gnc:share-print-info-places
+	   (inexact->exact (get-option gnc:pagename-general
+				       optname-shares-digits)))))
 
     (define (table-add-stock-rows-internal accounts odd-row?)
       (if (null? accounts) total-value

Modified: gnucash/trunk/src/report/standard-reports/portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/portfolio.scm	2006-01-07 17:15:06 UTC (rev 12291)
+++ gnucash/trunk/src/report/standard-reports/portfolio.scm	2006-01-07 18:42:58 UTC (rev 12292)
@@ -110,8 +110,9 @@
                                 currency price-fn include-empty collector)
 
    (let ((share-print-info
-	  (gnc:share-print-info-places (get-option gnc:pagename-general
-						   optname-shares-digits))))
+	  (gnc:share-print-info-places
+	   (inexact->exact (get-option gnc:pagename-general
+				       optname-shares-digits)))))
 
     (define (table-add-stock-rows-internal accounts odd-row?)
       (if (null? accounts) collector