From ed4474d932a6ae2e6d30d7cb2d0b8444033ad00a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 27 Jun 2023 19:10:45 +0200
Subject: [PATCH] List dokuwiki users in group member.

---
 src/members-print.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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)