Highlight improper council dokuwiki groups in member info table.
This commit is contained in:
parent
d5c94cb52c
commit
94dc507953
2 changed files with 21 additions and 5 deletions
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
", "))))
|
", "))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue