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 #t
(if dw (if dw
(let ((groups (ldict-ref dw 'groups '()))) (let ((groups (ldict-ref dw 'groups '())))
(or (and (member "member" groups) (and
(brmember-existing? mr)) ;; member
(and (not (member "member" groups)) (or (and (member "member" groups)
(not (brmember-existing? mr))))) (brmember-existing? mr))
(and (not (member "member" groups))
(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)))))) (not (brmember-existing? mr))))))
;; True if member record is not OK ;; True if member record is not OK

View file

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