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
This commit is contained in:
Mike Alexander
2014-01-19 23:30:58 +00:00
parent 9c9a5b8847
commit bcd5543195
@@ -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 '())))