From 3dafe87879135f146f6031781b8295fae53ce199 Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Mon, 16 Apr 2001 08:08:05 +0000 Subject: [PATCH] Christian Stimming's patch fixing the 'show foreign currency' option handling. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3980 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/html-utilities.scm | 4 ++-- src/scm/report/balance-sheet.scm | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/scm/html-utilities.scm b/src/scm/html-utilities.scm index 1f63815f13..e0a7d64c0e 100644 --- a/src/scm/html-utilities.scm +++ b/src/scm/html-utilities.scm @@ -174,7 +174,7 @@ ;; printed. If reverse-balance? == #t then the balance's signs get ;; reversed. (define (gnc:html-acct-table-comm-row-helper! - table tree-depth + table tree-depth report-commodity exchange-fn current-depth my-name my-commodity balance reverse-balance? is-stock-account? boldface? group-header-line?) ;; Adds one row to the table. my-name is the html-object @@ -397,7 +397,7 @@ current-depth my-name my-commodity balance reverse-balance? is-stock-account? boldface? group-header-line?) (gnc:html-acct-table-comm-row-helper! - table tree-depth + table tree-depth report-commodity exchange-fn current-depth my-name my-commodity balance reverse-balance? is-stock-account? boldface? group-header-line?)) diff --git a/src/scm/report/balance-sheet.scm b/src/scm/report/balance-sheet.scm index bc54ca1ebf..faa328d966 100644 --- a/src/scm/report/balance-sheet.scm +++ b/src/scm/report/balance-sheet.scm @@ -174,9 +174,9 @@ (define (add-subtotal-line table label balance) (if show-fcur? (gnc:html-acct-table-comm-row-helper! - table tree-depth 1 label - report-currency (gnc:sum-collector-stocks - balance report-currency exchange-fn) + table tree-depth report-currency exchange-fn + 1 label report-currency + (gnc:sum-collector-stocks balance report-currency exchange-fn) #f #f #t #f) (gnc:html-acct-table-row-helper! table tree-depth 1 label