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)) (suspended-mrs (ldict-ref bi 'suspended))
(destroyed-mrs (ldict-ref bi 'destroyed)) (destroyed-mrs (ldict-ref bi 'destroyed))
(student-mrs (ldict-ref bi 'students)) (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)) (print "Known members: " (length all-mrs))
(newline) (newline)
(print (print
@ -227,6 +230,9 @@
(if (null? problem-mrs) (if (null? problem-mrs)
#f #f
(members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E ~A")) (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 #:ansi #t
#:row-border #t #:row-border #t