Fix destroyed detection.

This commit is contained in:
Dominik Pantůček 2023-03-30 14:00:06 +02:00
parent b86360904f
commit 51747cfe84
2 changed files with 3 additions and 2 deletions

View file

@ -269,7 +269,7 @@
;; Returns true if the member is active (not suspended or destroyed).
(define (member-active? mr)
(and (not (member-destroyed? mr))
(and (month-in-periods? (member-record-info mr 'member))
(not (member-suspended? mr))))
;; Returns true if the member is currently a member