Fix destroyed detection.
This commit is contained in:
parent
b86360904f
commit
51747cfe84
2 changed files with 3 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue