brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Check email equality between members and dokuwiki.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 22:12:20 +02:00
parent cc1edb3537
commit 660fd32ad9
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/brmember.scm
View file

@ -273,6 +273,17 @@
(define (brmember-in-dokuwiki? mr) (define (brmember-in-dokuwiki? mr)
(ldict-contains? mr 'dokuwiki)) (ldict-contains? mr 'dokuwiki))
;; Returns #t if this member email is the same as the one in dokuwiki
(define (brmember-dokuwiki-email-ok? mr)
(let ((dw (ldict-ref mr 'dokuwiki #f)))
(if (eq? dw #t)
#t
(if dw
(let ((email (brmember-info mr 'mail 0))
(memail (ldict-ref dw 'email 1)))
(equal? email memail))
#f))))
;; True if member record is OK ;; True if member record is OK
(define (brmember-has-problems? mr) (define (brmember-has-problems? mr)
(or (member-has-errors? mr) (or (member-has-errors? mr)
@ -281,6 +292,8 @@
(not (is-4digit-prime? (brmember-id mr))) (not (is-4digit-prime? (brmember-id mr)))
(and (not (brmember-destroyed? mr)) (and (not (brmember-destroyed? mr))
(not (brmember-in-dokuwiki? mr))) (not (brmember-in-dokuwiki? mr)))
(and (not (brmember-destroyed? mr))
(not (brmember-dokuwiki-email-ok? mr)))
)) ))
;; Returns true if the member record represents non-existing ;; Returns true if the member record represents non-existing