From 416e7f7e5eabeaf70bc851f08347d5d43599cbd9 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sun, 18 Aug 2019 23:29:17 +0800 Subject: [PATCH] [general-journal] set document title after rendering Instead of setting document 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. --- .../report/standard-reports/general-journal.scm | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/gnucash/report/standard-reports/general-journal.scm b/gnucash/report/standard-reports/general-journal.scm index 23e3cb7c03..5babfd8619 100644 --- a/gnucash/report/standard-reports/general-journal.scm +++ b/gnucash/report/standard-reports/general-journal.scm @@ -90,14 +90,7 @@ ) ) ;; 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... (for-each (lambda (l) @@ -126,7 +119,10 @@ (define (general-journal-renderer report-obj) ;; 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 'version 1