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

Convert to CZK.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-18 19:23:51 +02:00
parent 3fbb68543b
commit 8533306dfd
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/members-payments.scm
View file

@ -271,10 +271,12 @@
;; Returns a single credit/debit list of payments and fees calendar
(define (brmember-balance-history mr)
(let ((mcal (calendar->balance-history (member-calendar mr)))
(pmts (transactions->balance-history (brmember-payments mr))))
(print mcal)
(print pmts)
(let* ((mcal (calendar->balance-history (member-calendar mr)))
(pmts (transactions->balance-history (brmember-payments mr)))
(all (append mcal pmts))
(all-sorted (sort all (lambda (a b)
(cal-day<? (car a) (car b))))))
(print all)
'()))
)