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

Actually merge dokuwiki groups info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 20:06:08 +02:00
parent 7396d38960
commit 6e80e3da72
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/mbase.scm
View file

@ -321,11 +321,16 @@
(values mb rem)
(let* ((row (car dw))
(username (car row))
(mr (find-member-by-nick mb username)))
(mr (find-member-by-nick mb username))
(groups (list-ref row 3)))
(if mr
(let ()
(let ((mid (brmember-id mr)))
(loop (cdr dw)
mb
(mbase-update mb
(lambda (mr)
(eq? (brmember-id mr) mid))
(lambda (mr)
(brmember-set mr #:dokuwiki groups)))
rem))
(loop (cdr dw)
mb