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