Use the same algorithm for expected income in summary emails.

2024-02-09 14:44:24 +01:00 · 2024-02-09 14:44:24 +01:00 · c458dc3900
commit c458dc3900
parent dcf6d8937f
3 changed files with 25 additions and 22 deletions
--- a/src/notifications.scm
+++ b/src/notifications.scm
@ -149,9 +149,7 @@
 	  (income (+ (* (lookup-member-fee 'normal) full)
 		     (* (lookup-member-fee 'student) students)))
 	  (income-lst
-	   (list (format "Expected income: ~A CZK" income)
-		 (format "  ~A full members" full)
-		 (format "  ~A students" students)))
+	   (list (get-expected-income-string mb)))
 	  (unpaired (mbase-unpaired mb))
 	  (unpaired-lst
 	   (if (null? unpaired)