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

Difference between generic member problems and file problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-27 19:06:40 +02:00
parent b4593ad377
commit d99e609e68
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/brmember.scm
View file

@ -54,6 +54,7 @@
brmember-usable?
brmember-in-dokuwiki?
brmember-has-problems?
brmember-file-has-problems?
brmember-destroyed?
brmember-suspended?
@ -284,7 +285,7 @@
(equal? email memail))
#f))))
;; True if member record is OK
;; True if member record is not OK
(define (brmember-has-problems? mr)
(or (member-has-errors? mr)
(not (null? (brmember-missing-keys mr)))
@ -296,6 +297,14 @@
(not (brmember-dokuwiki-email-ok? mr)))
))
;; True if member record is not OK
(define (brmember-file-has-problems? mr)
(or (member-has-errors? mr)
(not (null? (brmember-missing-keys mr)))
(not (brmember-usable? mr))
(not (is-4digit-prime? (brmember-id mr)))
))
;; Returns true if the member record represents non-existing
;; member. The *current-month* is a global parameter from period
;; module.