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

[options.scm] move gnc:options-fancy-date to business-options.scm

Browse Source 
it needs gnc:fancy-date-info which is defined in business-options
This commit is contained in:
Christopher Lam 2020-12-08 22:45:02 +08:00
parent de63a79527
commit 0630c214f0
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgnucash/app-utils/business-options.scm
View File

@ -27,6 +27,12 @@
(use-modules (gnucash engine))
(use-modules (gnucash utilities))
(define (gnc:options-fancy-date book)
(let ((date-format (gnc:fancy-date-info book gnc:*fancy-date-format*)))
(if (boolean? date-format) ;; date-format does not exist
(qof-date-format-get-string (qof-date-format-get))
date-format)))
(define (gnc:make-invoice-option
section
name

6
libgnucash/app-utils/options.scm
View File

@ -1944,12 +1944,6 @@ the option '~a'."))
(define (gnc:generate-restore-forms options options-string)
((options 'generate-restore-forms) options-string))
(define (gnc:options-fancy-date book)
(let ((date-format (gnc:fancy-date-info book gnc:*fancy-date-format*)))
(if (boolean? date-format) ;; date-format does not exist
(qof-date-format-get-string (qof-date-format-get))
date-format)))
(define (gnc:options-scm->kvp options book clear-option?)
(if clear-option?
(qof-book-options-delete book '()))