IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/business/business-reports/invoice.scm:

Browse Source 
* 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
This commit is contained in:
Derek Atkins 2003-05-25 00:17:22 +00:00
parent 022a174ca1
commit a0cb1bfab2
3 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@ -31,6 +31,13 @@
* src/scm/main.scm: call eval with the right number of arguments * src/scm/main.scm: call eval with the right number of arguments
based on early or late versions. 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> 2003-05-23 Derek Atkins <derek@ihtfp.com>
* src/gnome-utils/dialog-options.c: don't let the user do anything * src/gnome-utils/dialog-options.c: don't let the user do anything

9
src/business/business-reports/invoice.scm
View File

@ -7,7 +7,6 @@
(define-module (gnucash report invoice)) (define-module (gnucash report invoice))
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (srfi srfi-19))
(use-modules (ice-9 slib)) (use-modules (ice-9 slib))
(use-modules (gnucash gnc-module)) (use-modules (gnucash gnc-module))
@ -312,7 +311,7 @@
(gnc:make-string-option (gnc:make-string-option
(N_ "Display") (N_ "Today Date Format") (N_ "Display") (N_ "Today Date Format")
"v" (N_ "The format for the date->string conversion for today's date.") "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") (gnc:options-set-default-section gnc:*report-options* "General")
@ -589,8 +588,10 @@
(gnc:html-table-append-row! table (list (string-expand (gnc:html-table-append-row! table (list (string-expand
(if addy addy "") (if addy addy "")
#\newline "<br>"))) #\newline "<br>")))
(gnc:html-table-append-row! table (list (date->string (current-date) (gnc:html-table-append-row! table (list
date-format))) (strftime
date-format
(localtime (car (gnc:get-today))))))
table)) table))
(define (make-break! document) (define (make-break! document)

10
src/business/business-reports/owner-report.scm
View File

@ -9,7 +9,6 @@
(define-module (gnucash report owner-report)) (define-module (gnucash report owner-report))
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (srfi srfi-19))
(use-modules (ice-9 slib)) (use-modules (ice-9 slib))
(use-modules (gnucash gnc-module)) (use-modules (gnucash gnc-module))
(use-modules (gnucash main)) ; for gnc:debug (use-modules (gnucash main)) ; for gnc:debug
@ -379,7 +378,7 @@
(gnc:make-string-option (gnc:make-string-option
gnc:pagename-general (N_ "Today Date Format") gnc:pagename-general (N_ "Today Date Format")
"p" (N_ "The format for the date->string conversion for today's date.") "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") (gnc:options-set-default-section gnc:*report-options* "General")
@ -494,9 +493,10 @@
(gnc:html-table-append-row! table (list (string-expand (gnc:html-table-append-row! table (list (string-expand
(if addy addy "") (if addy addy "")
#\newline "<br>"))) #\newline "<br>")))
(gnc:html-table-append-row! table (gnc:html-table-append-row! table (list
(list (date->string (current-date) (strftime
date-format))) date-format
(localtime (car (gnc:get-today))))))
table)) table))
(define (make-break! document) (define (make-break! document)