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

[general-journal] set document title after rendering

Browse Source 
Instead of setting document <title> register.scm's General/Title
option, set it in the document returned by register.scm's
renderer. This is in anticipation of "General"/"Title" option in
register.scm being removed.
This commit is contained in:
Christopher Lam 2019-08-18 23:29:17 +08:00
parent b3ff04eedc
commit 416e7f7e5e
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/report/standard-reports/general-journal.scm
View File

@ -90,14 +90,7 @@
) )
) )
;; we'll leave query malloc'd in case this is required by the C side... ;; we'll leave query malloc'd in case this is required by the C side...
;; set options in the general tab...
(set-option!
gnc:pagename-general (N_ "Title") (_ reportname))
;; we can't (currently) set the Report name here
;; because it is automatically set to the template
;; name... :(
;; set options in the display tab... ;; set options in the display tab...
(for-each (for-each
(lambda (l) (lambda (l)
@ -126,7 +119,10 @@
(define (general-journal-renderer report-obj) (define (general-journal-renderer report-obj)
;; just delegate rendering to the Register Report renderer... ;; just delegate rendering to the Register Report renderer...
((gnc:report-template-renderer/report-guid regrptguid regrptname) report-obj)) (let* ((renderer (gnc:report-template-renderer/report-guid regrptguid #f))
(doc (renderer report-obj)))
(gnc:html-document-set-title! doc (_ reportname))
doc))
(gnc:define-report (gnc:define-report
'version 1 'version 1