Display members that will expire soon.

src/members-print.scm

@@ -250,7 +250,12 @@
 	  (problem-mrs (ldict-ref bi 'problems))
 	  (debtor-mrs (sort
 		       (members-to-notify mb 3)
-		       brmember<?)))
+		       brmember<?))
+	  (soon-expire-mrs (sort
+			    (find-members-by-predicate
+			     mb
+			     (brmember-suspended-for 21 24))
+			    brmember<?)))
      (print "Known members: " (length all-mrs))
      (newline)
      (print
@@ -260,7 +265,7 @@
 	(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 "Suspended:" suspended-mrs "~N~E (~S)")
 	      (members-table-row a:warning "Destroyed:" destroyed-mrs "~N~E")
 	      (let ((suspended2 (filter
 				 (lambda (mr)
@@ -270,6 +275,10 @@
 		(if (null? suspended2)
 		    #f
 		    (members-table-row (ansi #:magenta) "Suspended (long):" suspended2 "~N (~S)")))
+	      (if (null? soon-expire-mrs)
+		  #f
+		  (members-table-row (ansi #:magenta #:bold) "Expire Soon:"
+				     soon-expire-mrs "~N (~S)"))
 	      (if (null? problem-mrs)
 		  #f
 		  (members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E ~A"))