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

List spec fee.

Browse source
This commit is contained in:
Dominik Pantůček 2024-06-11 21:23:15 +02:00
parent 8a3c812797
commit 0906f9d27c
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/members-print.scm
View file

@ -531,6 +531,10 @@
payment payment
total total
balance balance
(let ((spec-fee (brmember-spec-fee mr)))
(if spec-fee
spec-fee
"normal"))
))) )))
raw-members)) raw-members))
(balances (map (lambda (m) (balances (map (lambda (m)
@ -552,8 +556,7 @@
(let ((total (list-ref member 5))) (let ((total (list-ref member 5)))
(list (list-ref member 0) (list (list-ref member 0)
(list-ref member 1) (list-ref member 1)
"---" (sprintf "\t~A" (list-ref member 5))
(sprintf "\t~A" (list-ref member 2)) (sprintf "\t~A" (list-ref member 2))
(sprintf "\t~A" (list-ref member 3)) (sprintf "\t~A" (list-ref member 3))
(sprintf "\t~A" (list-ref member 4)) (sprintf "\t~A" (list-ref member 4))