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

Select only member role member.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-17 16:08:44 +02:00
parent fde185ff6f
commit 73220682bd
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/mailman3-sql.scm
View file

@ -60,12 +60,13 @@
(define (list-mailman3-sql-list-members lst) (define (list-mailman3-sql-list-members lst)
(let-values (((stmt _) (let-values (((stmt _)
(prepare (mailman3-db) (prepare (mailman3-db)
"SELECT address.email "SELECT DISTINCT address.email
FROM member FROM member
LEFT JOIN address LEFT JOIN address
ON member.address_id=address.id ON member.address_id=address.id
WHERE list_id=?"))) WHERE list_id=? AND role=1")))
(map-row identity stmt (map-row identity
stmt
(format "~A.brmlab.cz" lst)))) (format "~A.brmlab.cz" lst))))
) )