r23724 - gnucash/trunk/src/report/standard-reports - Advanced Portfolio: Use the correct function to get today's date.

[Mike Alexander]

Author: mta
Date: 2014-01-19 18:30:58 -0500 (Sun, 19 Jan 2014)
New Revision: 23724
Trac: http://svn.gnucash.org/trac/changeset/23724

Modified:
   gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
Log:
Advanced Portfolio: Use the correct function to get today's date.

Modified: gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2014-01-19 22:40:17 UTC (rev 23723)
+++ gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2014-01-19 23:30:58 UTC (rev 23724)
@@ -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 '())))