diff --git a/src/hackerbase.scm b/src/hackerbase.scm index cfe5c63..a7e1f38 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -160,6 +160,7 @@ (-status () "Show members directory status" (-action- 'status)) (-summary () "Send summary email" + (-needs-bank- #t) (-action- 'summary)) ) diff --git a/src/notifications.scm b/src/notifications.scm index bc73895..99ad780 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -45,7 +45,8 @@ brmember-format configuration util-time - members-fees) + members-fees + mbase) ;; Prints email to the console (define (print-notification-email em) @@ -121,9 +122,16 @@ (list (format "Expected income: ~A CZK" income) (format " ~A full members" full) (format " ~A students" students))) + (unpaired (mbase-unpaired mb)) (unpaired-lst - (list "" - "Unpaired transactions:"))) + (if (null? unpaired) + '() + (append + (list "" + "Unpaired transactions:") + (map (lambda (tr) + (format " ~A" tr)) + unpaired))))) (append income-lst unpaired-lst)))