Use new predicates and show students.

This commit is contained in:
Dominik Pantůček 2023-03-28 19:56:03 +02:00
parent da29baa991
commit 5ceec258f9
2 changed files with 2 additions and 1 deletions

View file

@ -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))

View file

@ -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