From 8a89fc3ad6393572bdda74d292597446640d445b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 10 Apr 2023 21:59:14 +0200 Subject: [PATCH] Output email with address, nick and id. --- src/member-record.scm | 2 +- src/reminders.scm | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/member-record.scm b/src/member-record.scm index 3542a4b..5376865 100644 --- a/src/member-record.scm +++ b/src/member-record.scm @@ -332,7 +332,7 @@ (loop (cddr fmtl) (cons (case (cadr fmtl) ((#\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))) ((#\E) (let ((n (length (ldict-ref mr 'highlights '())))) diff --git a/src/reminders.scm b/src/reminders.scm index 812cb76..c16f6ec 100644 --- a/src/reminders.scm +++ b/src/reminders.scm @@ -40,15 +40,15 @@ ;; Creates reminder email body (define (reminder-email-body mr) (list - (member-format "reminder for ~N" mr) + (member-format "reminder for ~N id ~I" mr) )) ;; Creates reminder email dictionary (define (make-reminder-email mr) (make-ldict - `((to (member-email mr)) - (subject "Připomínka členských příspěvků / Membership fees reminder") - (body ,(reminder-email-body mr))))) + `((to . ,(member-record-info mr 'mail)) + (subject . "Připomínka členských příspěvků / Membership fees reminder") + (body . ,(reminder-email-body mr))))) ;; Prints email to the console (define (print-reminder-email em)