From a0cb1bfab269da049bab051cf5b1c62bd079a42c Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Sun, 25 May 2003 00:17:22 +0000 Subject: [PATCH] * src/business/business-reports/invoice.scm: * src/business/business-reports/owner-report.scm: Change the date format string to be consistent with other places (e.g. the check print dialog) and use '%' instead of '~'. This is an interim fix for #99574, at least until we can centralize the functionality. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8388 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 7 +++++++ src/business/business-reports/invoice.scm | 9 +++++---- src/business/business-reports/owner-report.scm | 10 +++++----- 3 files changed, 17 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 364b32ddc7..b5d72d48e9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -30,6 +30,13 @@ symbol to a delta time. * src/scm/main.scm: call eval with the right number of arguments based on early or late versions. + + * src/business/business-reports/invoice.scm: + * src/business/business-reports/owner-report.scm: + Change the date format string to be consistent with other places + (e.g. the check print dialog) and use '%' instead of '~'. + This is an interim fix for #99574, at least until we can + centralize the functionality. 2003-05-23 Derek Atkins diff --git a/src/business/business-reports/invoice.scm b/src/business/business-reports/invoice.scm index 1a5b18c714..c3921e26ba 100644 --- a/src/business/business-reports/invoice.scm +++ b/src/business/business-reports/invoice.scm @@ -7,7 +7,6 @@ (define-module (gnucash report invoice)) (use-modules (srfi srfi-1)) -(use-modules (srfi srfi-19)) (use-modules (ice-9 slib)) (use-modules (gnucash gnc-module)) @@ -312,7 +311,7 @@ (gnc:make-string-option (N_ "Display") (N_ "Today Date Format") "v" (N_ "The format for the date->string conversion for today's date.") - "~B ~e, ~Y")) + "%B %e, %Y")) (gnc:options-set-default-section gnc:*report-options* "General") @@ -589,8 +588,10 @@ (gnc:html-table-append-row! table (list (string-expand (if addy addy "") #\newline "
"))) - (gnc:html-table-append-row! table (list (date->string (current-date) - date-format))) + (gnc:html-table-append-row! table (list + (strftime + date-format + (localtime (car (gnc:get-today)))))) table)) (define (make-break! document) diff --git a/src/business/business-reports/owner-report.scm b/src/business/business-reports/owner-report.scm index cd61183883..0ce7af3547 100644 --- a/src/business/business-reports/owner-report.scm +++ b/src/business/business-reports/owner-report.scm @@ -9,7 +9,6 @@ (define-module (gnucash report owner-report)) (use-modules (srfi srfi-1)) -(use-modules (srfi srfi-19)) (use-modules (ice-9 slib)) (use-modules (gnucash gnc-module)) (use-modules (gnucash main)) ; for gnc:debug @@ -379,7 +378,7 @@ (gnc:make-string-option gnc:pagename-general (N_ "Today Date Format") "p" (N_ "The format for the date->string conversion for today's date.") - "~B ~e, ~Y")) + "%B %e, %Y")) (gnc:options-set-default-section gnc:*report-options* "General") @@ -494,9 +493,10 @@ (gnc:html-table-append-row! table (list (string-expand (if addy addy "") #\newline "
"))) - (gnc:html-table-append-row! table - (list (date->string (current-date) - date-format))) + (gnc:html-table-append-row! table (list + (strftime + date-format + (localtime (car (gnc:get-today)))))) table)) (define (make-break! document)