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

Highlight improper council dokuwiki groups in member info table.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

24
src/brmember.scm
View file

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