From 6d89cc70becc238c1dce00b154bede99c367092c Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sun, 24 Dec 2017 06:47:31 +0800 Subject: [PATCH] TP->T64: gnucash/report/utility-reports/hello-world.scm --- gnucash/report/utility-reports/hello-world.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gnucash/report/utility-reports/hello-world.scm b/gnucash/report/utility-reports/hello-world.scm index 8ee7b305ed..83d36e02ae 100644 --- a/gnucash/report/utility-reports/hello-world.scm +++ b/gnucash/report/utility-reports/hello-world.scm @@ -267,13 +267,13 @@ option like this.") ;; these are samples of different date options. for a simple ;; date with day, month, and year but no time you should use - ;; gnc-print-date + ;; qof-print-date (let ((time-string (strftime "%X" (gnc-localtime (current-time)))) - (date-string (strftime "%x" (gnc-localtime (car date-val)))) - (date-string2 (strftime "%x %X" (gnc-localtime (car date2-val)))) - (rel-date-string (strftime "%x" (gnc-localtime (car rel-date-val)))) + (date-string (strftime "%x" (gnc-localtime date-val))) + (date-string2 (strftime "%x %X" (gnc-localtime date2-val))) + (rel-date-string (strftime "%x" (gnc-localtime rel-date-val))) (combo-date-string - (strftime "%x" (gnc-localtime (car combo-date-val))))) + (strftime "%x" (gnc-localtime combo-date-val)))) ;; Here's where we fill the report document with content. We ;; do this by adding 'html objects' such as text, tables, and