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

Difference between generic member problems and file problems.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-27 19:06:40 +02:00
parent b4593ad377
commit d99e609e68
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/brmember.scm
View file

@ -54,6 +54,7 @@
brmember-usable? brmember-usable?
brmember-in-dokuwiki? brmember-in-dokuwiki?
brmember-has-problems? brmember-has-problems?
brmember-file-has-problems?
brmember-destroyed? brmember-destroyed?
brmember-suspended? brmember-suspended?
@ -284,7 +285,7 @@
(equal? email memail)) (equal? email memail))
#f)))) #f))))
;; True if member record is OK ;; True if member record is not OK
(define (brmember-has-problems? mr) (define (brmember-has-problems? mr)
(or (member-has-errors? mr) (or (member-has-errors? mr)
(not (null? (brmember-missing-keys mr))) (not (null? (brmember-missing-keys mr)))
@ -296,6 +297,14 @@
(not (brmember-dokuwiki-email-ok? mr))) (not (brmember-dokuwiki-email-ok? mr)))
)) ))
;; True if member record is not OK
(define (brmember-file-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)))
))
;; Returns true if the member record represents non-existing ;; Returns true if the member record represents non-existing
;; member. The *current-month* is a global parameter from period ;; member. The *current-month* is a global parameter from period
;; module. ;; module.

4
src/members-print.scm
View file

@ -366,7 +366,7 @@
... ...
((#:right light) ... none)) ((#:right light) ... none))
#:ansi-reset? #t))) #:ansi-reset? #t)))
(let ((pmrs (find-members-by-predicate mb brmember-has-problems?))) (let ((pmrs (find-members-by-predicate mb brmember-file-has-problems?)))
(when (not (null? pmrs)) (when (not (null? pmrs))
(newline) (newline)
(print "Member files with errors (" (length pmrs) "): " (print "Member files with errors (" (length pmrs) "): "
@ -375,7 +375,7 @@
", ")))) ", "))))
(let ((pmrs (find-members-by-predicate mb (lambda (mr) (let ((pmrs (find-members-by-predicate mb (lambda (mr)
(and (brmember-has-highlights? mr) (and (brmember-has-highlights? mr)
(not (brmember-has-problems? mr))))))) (not (brmember-file-has-problems? mr)))))))
(when (not (null? pmrs)) (when (not (null? pmrs))
(newline) (newline)
(print "Member files with issues: " (print "Member files with issues: "