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

Merge dokuwiki data as ldict.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 20:21:02 +02:00
parent 6e80e3da72
commit 9e0d6f62c4
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mbase.scm
View file

@ -322,7 +322,8 @@
(let* ((row (car dw)) (let* ((row (car dw))
(username (car row)) (username (car row))
(mr (find-member-by-nick mb username)) (mr (find-member-by-nick mb username))
(groups (list-ref row 3))) (groups (list-ref row 3))
(email (list-ref row 2)))
(if mr (if mr
(let ((mid (brmember-id mr))) (let ((mid (brmember-id mr)))
(loop (cdr dw) (loop (cdr dw)
@ -330,7 +331,11 @@
(lambda (mr) (lambda (mr)
(eq? (brmember-id mr) mid)) (eq? (brmember-id mr) mid))
(lambda (mr) (lambda (mr)
(brmember-set mr #:dokuwiki groups))) (let ((dws (ldict-ref mr 'dokuwiki (make-ldict))))
(brmember-set mr #:dokuwiki
(ldict-set
(ldict-set dws 'groups groups)
'email email)))))
rem)) rem))
(loop (cdr dw) (loop (cdr dw)
mb mb