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] Addon previous commit... need to initialize with guid

Browse Source
This commit is contained in:
Christopher Lam 2021-12-04 08:59:14 +08:00
parent d740ac1cb0
commit ca6604c93c
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -466,16 +466,14 @@ the option '~a'."))
sort-tag
documentation-string)
(define (convert-to-guid item)
(if (string? item) item (gncBudgetGetGUID item)))
(define (convert-to-budget item)
(if (string? item) (gnc-budget-lookup item (gnc-get-current-book)) item))
(let* ((initial-budget (gnc-budget-get-default (gnc-get-current-book)))
(selection-budget initial-budget)
)
(define (convert-to-guid item)
(if (string? item) item (gncBudgetGetGUID item)))
(define (convert-to-budget item)
(if (string? item) (gnc-budget-lookup item (gnc-get-current-book)) item))
(selection-budget (convert-to-guid initial-budget)))
(gnc:make-option
section