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

Fix destroyed detection.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Makefile
View file

@ -241,7 +241,8 @@ bank-account.so: bank-account.o
bank-account.o: bank-account.import.scm bank-account.o: bank-account.import.scm
bank-account.import.scm: $(BANK-ACCOUNT-SOURCES) bank-account.import.scm: $(BANK-ACCOUNT-SOURCES)
BANK-FIO-SOURCES=bank-fio.scm bank-account.import.scm BANK-FIO-SOURCES=bank-fio.scm bank-account.import.scm \
csv-simple.import.scm
bank-fio.so: bank-fio.o bank-fio.so: bank-fio.o
bank-fio.o: bank-fio.import.scm bank-fio.o: bank-fio.import.scm

2
member-record.scm
View file

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