[new-aging] step 4 - prepended lists must be reversed

after building lists by prepending in b72052137 we need to process
them in reverse to obtain the original sorting of accounts and
owner-list.
This commit is contained in:
Christopher Lam 2019-11-10 13:32:50 +08:00
parent 6f7c6b9de3
commit a482c25072

View File

@ -286,6 +286,7 @@ exist but have no suitable transactions."))
(let ((owner (car owner-and-aging))
(aging (cadr owner-and-aging))
(aging-total (caddr owner-and-aging)))
(gnc:html-table-append-row!
table
(append
@ -308,7 +309,8 @@ exist but have no suitable transactions."))
(gnc:owner-report-text owner account)
(gnc:make-gnc-monetary comm aging-total)))))
(options->address options receivable owner)))))
owners-and-aging)
(reverse owners-and-aging))
(gnc:html-table-append-row!
table
(append
@ -320,7 +322,8 @@ exist but have no suitable transactions."))
(gnc:make-html-table-cell/markup
"total-number-cell" (gnc:make-gnc-monetary comm amt)))
acc-totals)))))
accounts-and-owners)
(reverse accounts-and-owners))
(for-each gncOwnerFree tofree)
(gnc:html-document-add-object! document table)))))