brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Calculate total credit with current month restriction in place.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-11 16:49:42 +02:00
parent cbd17399e3
commit d5ac70b95a
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/members-fees.scm
View file

@ -163,7 +163,15 @@
;; Total credit manually recorded in member record
(define (member-credit-total mr)
(let* ((credit (brmember-info mr 'credit '()))
(let* ((credit (filter (lambda (cr)
(let* ((cmon (cadr cr))
(mon (if cmon
(cal-ensure-month cmon)
#f)))
(if mon
(cal-month<=? mon (*current-month*))
#t)))
(brmember-info mr 'credit '())))
(amounts (map car credit)))
(foldl + 0 amounts)))