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

Highlight incorrect dokuwiki group membership.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-27 19:51:09 +02:00
parent 47ddc157bd
commit fb400aa5d2
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/brmember.scm
View file

@ -53,6 +53,7 @@
brmember-has-highlights?
brmember-usable?
brmember-in-dokuwiki?
brmember-dokuwiki-groups-ok?
brmember-has-problems?
brmember-file-has-problems?
@ -292,7 +293,10 @@
#t
(if dw
(let ((groups (ldict-ref dw 'groups '())))
(member "member" groups))
(or (and (member "member" groups)
(brmember-existing? mr))
(and (not (member "member" groups))
(not (brmember-existing? mr)))))
#f))))
;; True if member record is not OK
@ -305,8 +309,7 @@
(not (brmember-in-dokuwiki? mr)))
(and (not (brmember-destroyed? mr))
(not (brmember-dokuwiki-email-ok? mr)))
(and (brmember-destroyed? mr)
(brmember-dokuwiki-groups-ok? mr))
(not (brmember-dokuwiki-groups-ok? mr))
))
;; True if member record is not OK