From bcd5543195c4e2e402e2400a8576adf0c6ca7ade Mon Sep 17 00:00:00 2001 From: Mike Alexander Date: Sun, 19 Jan 2014 23:30:58 +0000 Subject: [PATCH] Advanced Portfolio: Use the correct function to get today's date. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23724 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/report/standard-reports/advanced-portfolio.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/report/standard-reports/advanced-portfolio.scm b/src/report/standard-reports/advanced-portfolio.scm index 5a743a9c7b..e2c2fec5d0 100644 --- a/src/report/standard-reports/advanced-portfolio.scm +++ b/src/report/standard-reports/advanced-portfolio.scm @@ -443,9 +443,9 @@ (let ((split-list (reverse (gnc:get-match-commodity-splits-sorted (list current) (case price-source - ((pricedb-latest) (timespec-now)) + ((pricedb-latest) (gnc:get-today)) ((pricedb-nearest) to-date) - (else (timespec-now))) ;; error, but don't crash + (else (gnc:get-today))) ;; error, but don't crash #f)))) ;; Any currency ;; Find the first (most recent) one that can be converted to report currency (while (and (not use-txn) (not (eqv? split-list '())))