* 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

@@ -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  <derek@ihtfp.com>
 

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 "<br>")))
-    (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)

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 "<br>")))
-    (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)