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

Show all problematic members including without dokuwiki accounts.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 20:38:04 +02:00
parent 9257f04deb
commit bf4385ab28
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/brmember.scm
View file

@ -52,6 +52,7 @@
brmember-missing-keys brmember-missing-keys
brmember-has-highlights? brmember-has-highlights?
brmember-usable? brmember-usable?
brmember-in-dokuwiki?
brmember-has-problems? brmember-has-problems?
brmember-destroyed? brmember-destroyed?
@ -268,12 +269,18 @@
(define (brmember-usable? mr) (define (brmember-usable? mr)
(ldict-contains? (ldict-ref mr 'info) 'member)) (ldict-contains? (ldict-ref mr 'info) 'member))
;; Returns #t if this member is in dokuwiki
(define (brmember-in-dokuwiki? mr)
(ldict-contains? mr 'dokuwiki))
;; True if member record is OK ;; True if member record is OK
(define (brmember-has-problems? mr) (define (brmember-has-problems? mr)
(or (member-has-errors? mr) (or (member-has-errors? mr)
(not (null? (brmember-missing-keys mr))) (not (null? (brmember-missing-keys mr)))
(not (brmember-usable? mr)) (not (brmember-usable? mr))
(not (is-4digit-prime? (brmember-id mr))))) (not (is-4digit-prime? (brmember-id mr)))
(not (brmember-in-dokuwiki? mr))
))
;; Returns true if the member record represents non-existing ;; Returns true if the member record represents non-existing
;; member. The *current-month* is a global parameter from period ;; member. The *current-month* is a global parameter from period