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

Finish mbase renaming.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-13 20:19:11 +02:00
parent 8321c741dc
commit 0052dd0b75
4 changed files with 42 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/members-payments.scm
View file

@ -180,17 +180,17 @@
;; Adds all balances - payments are converted to CZK in member-payments-total
(define (member-sort-payments mr)
(ldict-set mr
'payments
(sort (ldict-ref mr 'payments '())
(lambda (a b)
(string<? (bank-transaction-date a)
(bank-transaction-date b))))))
'payments
(sort (ldict-ref mr 'payments '())
(lambda (a b)
(string<? (bank-transaction-date a)
(bank-transaction-date b))))))
;; Balances totals
;; Balances totals
(define (member-balance mr)
(make-ldict `((fees . ,(member-fees-total mr))
(credit . ,(member-credit-total mr))
(payment . ,(member-payments-total mr)))))
(credit . ,(member-credit-total mr))
(payment . ,(member-payments-total mr)))))
;; Computes total member balance from credit, fees and payment
;; information