Evaluate the getter for making invoice options.

This commit is contained in:
John Ralls 2021-07-30 13:20:48 -07:00
parent 05ac056449
commit dd8e8b4efa

View File

@ -250,7 +250,8 @@
(gnc-make-owner-option section name key docstring defval ui-type)))
(define-public (gnc:make-invoice-option section name key docstring getter validator)
(issue-deprecation-warning "gnc:make-invoice-option is deprecated. Make and register the option in one command with gnc-register-ionvoice-option.")
(gnc-make-qofinstance-option section name key docstring #f (GncOptionUIType-INVOICE)))
(let ((defval (if getter (getter) #f)))
(gnc-make-qofinstance-option section name key docstring defval (GncOptionUIType-INVOICE))))
(define-public (gnc:make-taxtable-option section name key docstring default)
(issue-deprecation-warning "gnc:make-taxtable-option is deprecated. Make and register the option in one command with gnc-register-taxtable-option.")
(gnc-make-qofinstance-option section name key docstring default (GncOptionUIType-TAX_TABLE)))