Format today as ISO date.

src/notifications.scm

@@ -43,10 +43,8 @@
 	 members-payments
 	 util-format
 	 brmember-format
-	 configuration)
-
- ;; TODO - later move to configuration
- (define *summary-mailto* (make-parameter "rada@brmlab.cz"))
+	 configuration
+	 util-time)
 
  ;; Prints email to the console
  (define (print-notification-email em)
@@ -117,7 +115,8 @@
  (define (make-summary-email mb)
    (make-ldict
     `((to . ,(*summary-mailto*))
-      (subject . "xxx")
+      (subject . ,(format "Členské příspěvky ~A"
+			  (today/iso)))
       (body . ,(summary-email-body mb)))))
 
  (define (make+print-summary-email mb)