From 5ceec258f997182fe9fff0793dd768d7fbd3b1c2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 28 Mar 2023 19:56:03 +0200
Subject: [PATCH] Use new predicates and show students.

---
 bbstool.scm      | 2 +-
 members-base.scm | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/bbstool.scm b/bbstool.scm
index 1dbf501..4962eb7 100644
--- a/bbstool.scm
+++ b/bbstool.scm
@@ -173,7 +173,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   ((problems)
    (let loop ((mb MB))
      (when (not (null? mb))
-       (when (or (member-has-issues? (car mb))
+       (when (or (member-has-problems? (car mb))
 		 (member-has-highlights? (car mb)))
 	 (newline)
 	 (print-member-table (car mb))
diff --git a/members-base.scm b/members-base.scm
index 02b555b..da6c41a 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -357,6 +357,7 @@
 	identity
 	(list (list "Type" "Count" "List")
 	      (members-table-row a:success "Active:" active-mrs "~N~E")
+	      (members-table-row a:highlight "Students:" student-mrs "~N~E")
 	      (members-table-row a:warning "Suspended:" suspended-mrs "~N~E")
 	      (members-table-row a:warning "Destroyed:" destroyed-mrs "~N~E")
 	      (let ((suspended2 (filter-members-by-predicate