diff --git a/src/brmember.scm b/src/brmember.scm index e73724f..53e8b0a 100644 --- a/src/brmember.scm +++ b/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