Primitive unpaired transactions output.

src/hackerbase.scm

@@ -160,6 +160,7 @@
  (-status () "Show members directory status"
 	  (-action- 'status))
  (-summary () "Send summary email"
+	   (-needs-bank- #t)
 	   (-action- 'summary))
  )
 

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 ""
+	   (if (null? unpaired)
-		 "Unpaired transactions:")))
+	       '()
+	       (append
+		(list ""
+		      "Unpaired transactions:")
+		(map (lambda (tr)
+		       (format "  ~A" tr))
+		     unpaired)))))
      (append income-lst
 	     unpaired-lst)))