From d5f8c1b96204d5a4ca297451c71fddd01df28c29 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 10 May 2023 20:36:02 +0200
Subject: [PATCH] Total credit for member format.

---
 src/brmember-format.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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