brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Display members that will expire soon.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-16 21:01:34 +02:00
parent 2db2b5d8af
commit 2ed6dacb40
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/members-print.scm
View file

@ -250,6 +250,11 @@
(problem-mrs (ldict-ref bi 'problems))
(debtor-mrs (sort
(members-to-notify mb 3)
brmember<?))
(soon-expire-mrs (sort
(find-members-by-predicate
mb
(brmember-suspended-for 21 24))
brmember<?)))
(print "Known members: " (length all-mrs))
(newline)
@ -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"))