From 0787b4e24fcf06e0c4631e9b9a5c585436c7534c Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sun, 12 Jan 2020 08:41:24 +0800 Subject: [PATCH] [new-owner-report] splits->desc will show 1 memo per line --- gnucash/report/business-reports/new-owner-report.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/gnucash/report/business-reports/new-owner-report.scm b/gnucash/report/business-reports/new-owner-report.scm index 8e0217571a..2cd85e3bd0 100644 --- a/gnucash/report/business-reports/new-owner-report.scm +++ b/gnucash/report/business-reports/new-owner-report.scm @@ -286,7 +286,11 @@ (define (splits->desc splits) (let lp ((splits splits) (result '())) (if (null? splits) - (gnc:html-string-sanitize (string-join result ", ")) + (apply gnc:make-html-text + (fold + (lambda (a b) + (cons* (gnc:html-string-sanitize a) (gnc:html-markup-br) b)) + '() result)) (lp (cdr splits) (let ((memo (xaccSplitGetMemo (car splits)))) (if (or (string-null? memo) (member memo result))