[new-aging] use gnc:html-markup-ol

This commit is contained in:
Christopher Lam 2019-12-01 22:17:37 +08:00
parent 4aa17ef65b
commit 3ee434edf6

View File

@ -225,10 +225,6 @@ exist but have no suitable transactions."))
((if (eq? sort-order 'increasing) string<? string>?)
(gncOwnerGetName a) (gncOwnerGetName b)))
(define (html-markup-ol lst)
(apply gnc:html-markup "ol"
(map (lambda (elt) (gnc:html-markup "li" elt)) lst)))
;; set default title
(gnc:html-document-set-title! document report-title)
@ -340,7 +336,7 @@ exist but have no suitable transactions."))
document
(gnc:make-html-text
(_ "Please note some transactions were not processed")
(html-markup-ol
(gnc:html-markup-ol
(map
(lambda (invalid-split)
(gnc:html-markup-anchor