diff --git a/src/Makefile b/src/Makefile index 280bb1d..c1bf5b6 100644 --- a/src/Makefile +++ b/src/Makefile @@ -316,7 +316,8 @@ util-mail.o: util-mail.import.scm util-mail.import.scm: $(UTIL-MAIL-SOURCES) REMINDERS-SOURCES=reminders.scm member-record.import.scm \ - util-mail.import.scm util-dict-list.import.scm + util-mail.import.scm util-dict-list.import.scm \ + members-payments.import.scm reminders.o: reminders.import.scm reminders.import.scm: $(REMINDERS-SOURCES) diff --git a/src/reminders.scm b/src/reminders.scm index be24c37..20a3953 100644 --- a/src/reminders.scm +++ b/src/reminders.scm @@ -33,14 +33,21 @@ (import scheme (chicken base) + (chicken format) member-record util-mail - util-dict-list) + util-dict-list + members-payments) ;; Creates reminder email body (define (reminder-email-body mr) (list (member-format "Ahoj ~N," mr) + "podle evidence členů a bankovního účtu to vypadá, že máš nedoplatek" + (format "ve výši ~A Kč." (member-total-balance mr)) + "Zkontroluj, prosím, zda tvé platby členských příspěvků" + (member-format "s variabilním symbolem ~I byly zaslány na" mr) + "správný účet 1234/2010" "" "" (member-format "Hi ~N," mr)