Update notifications dependencies.

src/notifications.scm

@@ -44,7 +44,8 @@
 	 util-format
 	 brmember-format
 	 configuration
-	 util-time)
+	 util-time
+	 members-fees)
 
  ;; Prints email to the console
  (define (print-notification-email em)
@@ -109,9 +110,17 @@
    (let ((em (make-reminder-email mr)))
      (send-notification-email em)))
 
+ ;; Summary email of membership fees payments
  (define (summary-email-body mb)
-   '("yyy"))
+   (let* ((mbs (members-summary mb))
+	  (students (car mbs))
+	  (full (cdr mbs)))
+     (list (format "Expected income: ~A" 0)
+	   (format "  ~A full members" full)
+	   (format "  ~A students" students)
+	   )))
 
+ ;; Creates the summary email structure
  (define (make-summary-email mb)
    (make-ldict
     `((to . ,(*summary-mailto*))