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

Always set budget option to default budget.

Browse Source
This commit is contained in:
John Ralls 2021-07-19 11:30:13 -07:00
parent f5d8d508ee
commit 9d150b1ae7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -159,7 +159,10 @@
(gnc-make-string-option section name key docstring color-str (GncOptionUIType-COLOR))))
(define-public (gnc:make-budget-option section name key docstring)
(issue-deprecation-warning "gnc:make-budget-option is deprecated. Make and register the option in one command with gnc-register-color-option.")
(gnc-make-qofinstance-option section name key docstring #f (GncOptionUIType-BUDGET)))
(let ((option (gnc-make-qofinstance-option section name key docstring #f (GncOptionUIType-BUDGET))))
(gnc:option-set-value option
(gnc-budget-get-default (gnc-get-current-book)))
option))
(define-public (gnc:make-commodity-option section name key docstring default)
(issue-deprecation-warning "gnc:make-commodity-option is deprecated. Make and register the option in one command with gnc-register-commodity-option.")
(gnc-make-commodity-option section name key docstring default))