Highlight improper council dokuwiki groups in member info table.

This commit is contained in:
Dominik Pantůček 2023-07-02 20:31:16 +02:00
parent d5c94cb52c
commit 94dc507953
2 changed files with 21 additions and 5 deletions

View file

@ -293,10 +293,26 @@
#t
(if dw
(let ((groups (ldict-ref dw 'groups '())))
(and
;; member
(or (and (member "member" groups)
(brmember-existing? mr))
(and (not (member "member" groups))
(not (brmember-existing? mr)))))
(not (brmember-existing? mr))))
;; council, admin
(or (and (or (member "council" groups)
(member "admin" groups))
(brmember-existing? mr)
(or (brmember-council? mr)
(brmember-chair? mr)
(brmember-revision? mr)))
(and (not (or (member "council" groups)
(member "admin" groups)))
(or (not (brmember-existing? mr))
(not (or (brmember-council? mr)
(brmember-chair? mr)
(brmember-revision? mr))))))
))
(not (brmember-existing? mr))))))
;; True if member record is not OK

View file

@ -408,7 +408,7 @@
(ldict-ref mb 'dokuwiki))))
(when (not (null? dwpu))
(newline)
(print "DokuWiki users in wrong group(s): "
(print "DokuWiki users (non-members) in wrong group(s): "
(string-intersperse
(map car dwpu)
", "))))