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

Show nicks to notify.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 22:00:24 +02:00
parent 1551ea15e6
commit c00c60c79d
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/bbstool.scm
View file

@ -146,10 +146,12 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-mlsync () "Synchronize internal ML" (-mlsync () "Synchronize internal ML"
(-action- 'mlsync)) (-action- 'mlsync))
(-notify () "Members with debt for more than 1 month" (-notify () "Members with debt for more than 1 month"
(-notify-months- 1) (-notify-months- 1)
(-action- 'notify)) (-needs-bank- #t)
(-action- 'notify))
(-notify3 () "Members with debt for more than 3 month" (-notify3 () "Members with debt for more than 3 month"
(-notify-months- 3) (-notify-months- 3)
(-needs-bank- #t)
(-action- 'notify)) (-action- 'notify))
) )
@ -305,7 +307,13 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(when (not (null? surplus)) (when (not (null? surplus))
(print " Outsiders: " surplus)))))) (print " Outsiders: " surplus))))))
((notify) ((notify)
(print "Notify" (-notify-months-))) (let ((nmembers (members-to-notify MB (-notify-months-))))
(newline)
(if (null? nmembers)
(print "Everyone paid on time.")
(let ()
(print "Notify" (-notify-months-))
(print (map member-nick nmembers))))))
(else (else
(print "Nothing to do.")) (print "Nothing to do."))

3
src/members-payments.scm
View file

@ -222,7 +222,8 @@
(fee (lookup-member-fee (if (member-student? mr) (fee (lookup-member-fee (if (member-student? mr)
'student 'student
'regular)))) 'regular))))
(and (< total 0) (and (member-active? mr)
(< total 0)
(< total (- (* months fee)))))))) (< total (- (* months fee))))))))
) )