diff --git a/gnucash/report/html-utilities.scm b/gnucash/report/html-utilities.scm index 1822c3598d..f413dccf21 100644 --- a/gnucash/report/html-utilities.scm +++ b/gnucash/report/html-utilities.scm @@ -270,7 +270,9 @@ (try xaccAccountGetName) (try gnc-budget-get-name) (format #f "~a" d))) - (let ((render-list '())) + (let ((render-list '()) + (report-list (gnc:option-value + (gnc:lookup-option options "__general" "report-list")))) (define (add-option-if-changed option) (let* ((section (gnc:option-section option)) (name (gnc:option-name option)) @@ -281,6 +283,11 @@ (if (not (or (equal? default-value value) (char=? (string-ref section 0) #\_))) (addto! render-list retval)))) + (for-each + (lambda (child) + (let ((report (gnc-report-find (car child)))) + (addto! render-list (cons "Embedded Report" (gnc:report-name report))))) + (or report-list '())) (gnc:options-for-each add-option-if-changed options) (if plaintext? (string-append