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

Output email with address, nick and id.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 21:59:14 +02:00
parent f4cb441835
commit 8a89fc3ad6
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/member-record.scm
View file

@ -332,7 +332,7 @@
(loop (cddr fmtl) (loop (cddr fmtl)
(cons (case (cadr fmtl) (cons (case (cadr fmtl)
((#\N) (member-record-info mr 'nick)) ((#\N) (member-record-info mr 'nick))
((#\I) (number->string (member-record-info mr 'id))) ((#\I) (number->string (member-id mr)))
((#\S) (number->string (member-suspended-months mr))) ((#\S) (number->string (member-suspended-months mr)))
((#\E) ((#\E)
(let ((n (length (ldict-ref mr 'highlights '())))) (let ((n (length (ldict-ref mr 'highlights '()))))

8
src/reminders.scm
View file

@ -40,15 +40,15 @@
;; Creates reminder email body ;; Creates reminder email body
(define (reminder-email-body mr) (define (reminder-email-body mr)
(list (list
(member-format "reminder for ~N" mr) (member-format "reminder for ~N id ~I" mr)
)) ))
;; Creates reminder email dictionary ;; Creates reminder email dictionary
(define (make-reminder-email mr) (define (make-reminder-email mr)
(make-ldict (make-ldict
`((to (member-email mr)) `((to . ,(member-record-info mr 'mail))
(subject "Připomínka členských příspěvků / Membership fees reminder") (subject . "Připomínka členských příspěvků / Membership fees reminder")
(body ,(reminder-email-body mr))))) (body . ,(reminder-email-body mr)))))
;; Prints email to the console ;; Prints email to the console
(define (print-reminder-email em) (define (print-reminder-email em)