Fix some unknown symbol warnings in reports.

This commit is contained in:
John Ralls 2022-12-23 11:08:34 -08:00
parent 79d46be8bc
commit ff6d3d899b
4 changed files with 4 additions and 4 deletions

View File

@ -433,7 +433,7 @@ not found.")))
gnc:optname-stylesheet))))
(define (gnc:report-set-stylesheet! report stylesheet)
(gnc-set-value
(gnc-set-option
(gnc:optiondb (gnc:report-options report))
gnc:pagename-general gnc:optname-stylesheet
(string->symbol (gnc:html-style-sheet-name stylesheet))))

View File

@ -462,7 +462,7 @@ balance at a given time"))
(gnc:options-copy-values (gnc:report-options report-obj)
options)
;; and set the destination accounts
(gnc-option-set-value
(gnc-set-option
options gnc:pagename-accounts optname-accounts
(map cadr finish))
(set! id (gnc:make-report report-guid options))

View File

@ -428,7 +428,7 @@ exist but have no suitable transactions."))
(define (receivables-report-create-internal acct title show-zeros?)
(let* ((options (gnc:make-report-options receivables-aging-guid)))
(when title (gnc-set-option-set-value
(when title (gnc-set-option
options gnc:pagename-general gnc:optname-reportname title))
(gnc-set-option options gnc:pagename-general optname-show-zeros show-zeros?)
(gnc:make-report receivables-aging-guid options)))

View File

@ -107,7 +107,7 @@
(test-assert (format #f "wrong-option ~a ~a" section name) #f)))
(define (opt-val options section name)
(if (gnc-lookup-option options section name)
(gnc-get-option options section name value)
(gnc-optiondb-lookup-value options section name)
(test-assert (format #f "wrong-option ~a ~a" section name) #f)))
(define structure