diff --git a/src/members-print.scm b/src/members-print.scm index 5e49d5a..d968081 100644 --- a/src/members-print.scm +++ b/src/members-print.scm @@ -381,7 +381,17 @@ (print "Member files with issues: " (string-intersperse (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. (define (print-members-base-stats ms)