Skip dokuwiki checks if no dokuwiki is loaded.

src/mbase.scm

@@ -314,6 +314,12 @@
  ;; Adds dokuwiki information to all users found, returns new mbase
  ;; and list of remaining users.
  (define (mbase-merge-dokuwiki mb dw)
+   (if (null? dw)
+       (values (mbase-update mb
+			     (lambda (mr) #t)
+			     (lambda (mr)
+			       (brmember-set mr #:dokuwiki #t)))
+	       dw)
        (let loop ((dw dw)
 		  (mb mb)
 		  (rem '()))
@@ -339,7 +345,7 @@
 			   rem))
 		   (loop (cdr dw)
 			 mb
-		     (cons row rem)))))))
+			 (cons row rem))))))))
 
  ;; Simple syntax wrapper
  (define-syntax with-mbase-progress%

src/members-print.scm

@@ -136,11 +136,13 @@
 	  (mailman (list (list "Mailing Lists"
 			       (string-intersperse (brmember-mailman mr) "\n"))))
 	  (dokuwiki (if (ldict-contains? mr 'dokuwiki)
+			(if (eq? (ldict-ref mr 'dokuwiki) #t)
+			    (list #f)
 			    (list (list "DokuWiki"
 					(format "Groups: ~A\nEmail: ~A"
 						(brmember-sub-ref mr 'dokuwiki 'groups)
 						(brmember-sub-ref mr 'dokuwiki 'email)
-					    )))
+						))))
 			(list (list (ansi-string #:red "DokuWiki")
 				    (ansi-string #:red "---")))))
 	  (result (filter identity (append head body mailman dokuwiki))))