From 97f5fa61d98ba0f30282254ed39de3a08ec01f50 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 11 May 2023 09:17:47 +0200
Subject: [PATCH] Preliminary debtors in info table.

---
 src/members-print.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/members-print.scm b/src/members-print.scm
index a62763f..229fec5 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -204,7 +204,10 @@
 	  (suspended-mrs (ldict-ref bi 'suspended))
 	  (destroyed-mrs (ldict-ref bi 'destroyed))
 	  (student-mrs (ldict-ref bi 'students))
-	  (problem-mrs (ldict-ref bi 'problems)))
+	  (problem-mrs (ldict-ref bi 'problems))
+	  (debtor-mrs (sort
+		       (members-to-notify mb 3)
+		       brmember<?)))
      (print "Known members: " (length all-mrs))
      (newline)
      (print
@@ -227,6 +230,9 @@
 	      (if (null? problem-mrs)
 		  #f
 		  (members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E ~A"))
+	      (if (null? debtor-mrs)
+		  #f
+		  (members-table-row (ansi #:magenta #:bold) "Debtors:" debtor-mrs "~N ~B (~L)"))
 	      ))
        #:ansi #t
        #:row-border #t