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

[new-owner-report] splits->desc will show 1 memo per line

Browse Source
This commit is contained in:
Christopher Lam 2020-01-12 08:41:24 +08:00
parent d9b585c396
commit 0787b4e24f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnucash/report/business-reports/new-owner-report.scm
View File

@ -286,7 +286,11 @@
(define (splits->desc splits) (define (splits->desc splits)
(let lp ((splits splits) (result '())) (let lp ((splits splits) (result '()))
(if (null? splits) (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) (lp (cdr splits)
(let ((memo (xaccSplitGetMemo (car splits)))) (let ((memo (xaccSplitGetMemo (car splits))))
(if (or (string-null? memo) (member memo result)) (if (or (string-null? memo) (member memo result))