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

List dokuwiki users in group member.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-27 19:10:45 +02:00
parent d99e609e68
commit ed4474d932
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/members-print.scm
View file

@ -381,7 +381,17 @@
(print "Member files with issues: " (print "Member files with issues: "
(string-intersperse (string-intersperse
(map brmember-file-path pmrs) (map brmember-file-path pmrs)
", "))))) ", "))))
(let ((dwpu (filter (lambda (dwu)
(member "member" (list-ref dwu 3)))
(ldict-ref mb 'dokuwiki))))
(when (not (null? dwpu))
(newline)
(print "DokuWiki users in wrong group(s): "
(string-intersperse
(map car dwpu)
", "))))
)
;; Prints the stats in format used by gnuplot. ;; Prints the stats in format used by gnuplot.
(define (print-members-base-stats ms) (define (print-members-base-stats ms)