Show all problematic members including without dokuwiki accounts.

src/brmember.scm

@@ -52,6 +52,7 @@
   brmember-missing-keys
   brmember-has-highlights?
   brmember-usable?
+  brmember-in-dokuwiki?
   brmember-has-problems?
 
   brmember-destroyed?
@@ -268,12 +269,18 @@
  (define (brmember-usable? mr)
    (ldict-contains? (ldict-ref mr 'info) 'member))
 
+ ;; Returns #t if this member is in dokuwiki
+ (define (brmember-in-dokuwiki? mr)
+   (ldict-contains? mr 'dokuwiki))
+
  ;; True if member record is OK
  (define (brmember-has-problems? mr)
    (or (member-has-errors? mr)
        (not (null? (brmember-missing-keys mr)))
        (not (brmember-usable? mr))
-       (not (is-4digit-prime? (brmember-id mr)))))
+       (not (is-4digit-prime? (brmember-id mr)))
+       (not (brmember-in-dokuwiki? mr))
+       ))
 
  ;; Returns true if the member record represents non-existing
  ;; member. The *current-month* is a global parameter from period