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

Total credit for member format.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-10 20:36:02 +02:00
parent 9de64f7004
commit d5f8c1b962
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/brmember-format.scm
View file

@ -63,7 +63,7 @@
(if (eq? n 0) (if (eq? n 0)
"" ""
(sprintf "[~A]" n)))) (sprintf "[~A]" n))))
((#\P) ; Date of last payment ((#\L) ; Date of last payment
(let ((payments (brmember-payments mr))) (let ((payments (brmember-payments mr)))
(if (null? payments) (if (null? payments)
"-" "-"
@ -71,6 +71,8 @@
((#\F) ; Fees to be paid (total over all ((#\F) ; Fees to be paid (total over all
; membership periods) ; membership periods)
(sprintf "~A" (member-fees-total mr))) (sprintf "~A" (member-fees-total mr)))
((#\C) ; Total credit manually written
(sprintf "~A" (member-credit-total mr)))
((#\~) "~")) ((#\~) "~"))
resl)) resl))
(loop (cdr fmtl) (loop (cdr fmtl)