From a48d521b9466b578e35e1a2264b315c900e0759f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 29 Mar 2023 14:36:30 +0200
Subject: [PATCH] Print the credit as well.

---
 bbstool.scm     | 9 ++++++---
 member-fees.scm | 7 +++++++
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/bbstool.scm b/bbstool.scm
index 41abea0..3c71e80 100644
--- a/bbstool.scm
+++ b/bbstool.scm
@@ -185,15 +185,18 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	 (print-member-source (car mb)))
        (loop (cdr mb)))))
   ((fees)
+   (newline)
    (print
     (table->string
      (cons
-      (list "Member" "Fees")
+      (list "Member" "Fees" "Credit")
       (map
        (lambda (mr)
 	 (list (member-nick mr)
-	       (sprintf "\t~A" (member-fees-total mr))))
+	       (sprintf "\t~A" (member-fees-total mr))
+	       (sprintf "\t~A" (member-credit-total mr))
+	       ))
        (sort (filter-members-by-predicate MB member-active?) member<?)))
-     #:col0-border #t #:row0-border #t)))
+     #:col-border #t #:row0-border #t)))
   
   )
diff --git a/member-fees.scm b/member-fees.scm
index afd8eb1..e2b4b5c 100644
--- a/member-fees.scm
+++ b/member-fees.scm
@@ -35,6 +35,7 @@
   member-calendar->years-table
   member-calendar->fees
   member-fees-total
+  member-credit-total
   )
 
  (import scheme
@@ -138,4 +139,10 @@
    (foldl + 0 (member-calendar->fees
 	       (member-calendar mr))))
 
+ ;; Total credit manually recorded in member record
+ (define (member-credit-total mr)
+   (let* ((credit (member-record-info mr 'credit '()))
+	  (amounts (map car credit)))
+     (foldl + 0 amounts)))
+
  )