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

Work only with active members in notifications.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-23 13:30:36 +02:00
parent 70a49c0973
commit 2e873ab8ba
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-payments.scm
View file

@ -217,6 +217,7 @@
;; Returns true if given member should be notified in given number of months ;; Returns true if given member should be notified in given number of months
(define (member-to-notify? mr . mmonths) (define (member-to-notify? mr . mmonths)
(if (member-active? mr)
(let ((months (if (null? mmonths) (let ((months (if (null? mmonths)
1 1
(car mmonths))) (car mmonths)))
@ -226,7 +227,8 @@
'regular)))) 'regular))))
(and (brmember-active? mr) (and (brmember-active? mr)
(< total 0) (< total 0)
(< total (- (* months fee)))))) (< total (- (* months fee)))))
#f))
;; Return members to notify because of late payments for more than ;; Return members to notify because of late payments for more than
;; given number of months ;; given number of months