Quick hack for unified balance formatting for active debtors.

This commit is contained in:
Dominik Pantůček 2023-06-15 23:16:13 +02:00
parent 4db9704226
commit db5014a334

View file

@ -159,7 +159,7 @@
(if (brmember-student? mr)
'student
'normal)
(format "\t~A" (member-total-balance mr))
(format "\t~A" (+ 0.0 (member-total-balance mr)))
(let* ((payments (brmember-payments mr))
(tr (if (null? payments)
#f