Proper lookup.

This commit is contained in:
Dominik Pantůček 2024-06-11 21:29:06 +02:00
parent 90930391d0
commit 079551e41a

View file

@ -534,7 +534,10 @@
(let ((spec-fee (brmember-spec-fee mr))) (let ((spec-fee (brmember-spec-fee mr)))
(if spec-fee (if spec-fee
spec-fee spec-fee
"normal")) (member-calendar-entry->fee
(list (*current-month*)
(brmember-flags mr)
spec-fee))))
))) )))
raw-members)) raw-members))
(balances (map (lambda (m) (balances (map (lambda (m)