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

List in problematic members if dokuwiki member and not member.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-27 19:30:19 +02:00
parent 6b81814b25
commit 47ddc157bd
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/brmember.scm
View file

@ -285,6 +285,16 @@
(equal? email memail)) (equal? email memail))
#f)))) #f))))
;; Returns #t if this member is in "member" group in dokuwiki.
(define (brmember-dokuwiki-groups-ok? mr)
(let ((dw (ldict-ref mr 'dokuwiki #f)))
(if (eq? dw #t)
#t
(if dw
(let ((groups (ldict-ref dw 'groups '())))
(member "member" groups))
#f))))
;; True if member record is not OK ;; True if member record is not OK
(define (brmember-has-problems? mr) (define (brmember-has-problems? mr)
(or (member-has-errors? mr) (or (member-has-errors? mr)
@ -295,6 +305,8 @@
(not (brmember-in-dokuwiki? mr))) (not (brmember-in-dokuwiki? mr)))
(and (not (brmember-destroyed? mr)) (and (not (brmember-destroyed? mr))
(not (brmember-dokuwiki-email-ok? mr))) (not (brmember-dokuwiki-email-ok? mr)))
(and (brmember-destroyed? mr)
(brmember-dokuwiki-groups-ok? mr))
)) ))
;; True if member record is not OK ;; True if member record is not OK