[html-utilities] use new price renderer for exchange-rate table

This commit is contained in:
Christopher Lam 2020-05-13 11:35:57 +08:00
parent 9020c967c7
commit 61afe53f0f

View File

@ -734,9 +734,12 @@
(for-each
(lambda (commodity)
(let* ((orig-amt (gnc:make-gnc-monetary commodity 1))
(exchanged (exchange-fn orig-amt common-commodity)))
(exchanged (exchange-fn orig-amt common-commodity))
(conv-amount (gnc:gnc-monetary-amount exchanged)))
(gnc:html-table-append-row!
table (map markup (list orig-amt exchanged)))))
table (list (markup orig-amt)
(markup (gnc:default-price-renderer common-commodity
conv-amount))))))
comm-list)
(gnc:html-table-set-col-headers!
table (list (gnc:make-html-table-header-cell/size