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

Preliminary debtors in info table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-11 09:17:47 +02:00
parent 7509c8e230
commit 97f5fa61d9
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/members-print.scm
View file

@ -204,7 +204,10 @@
(suspended-mrs (ldict-ref bi 'suspended))
(destroyed-mrs (ldict-ref bi 'destroyed))
(student-mrs (ldict-ref bi 'students))
(problem-mrs (ldict-ref bi 'problems)))
(problem-mrs (ldict-ref bi 'problems))
(debtor-mrs (sort
(members-to-notify mb 3)
brmember<?)))
(print "Known members: " (length all-mrs))
(newline)
(print
@ -227,6 +230,9 @@
(if (null? problem-mrs)
#f
(members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E ~A"))
(if (null? debtor-mrs)
#f
(members-table-row (ansi #:magenta #:bold) "Debtors:" debtor-mrs "~N ~B (~L)"))
))
#:ansi #t
#:row-border #t