brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Start work on unpaired transactions.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-17 22:18:45 +02:00
parent 5200b26685
commit 2ef2099c7d
1 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/notifications.scm
View file

@ -114,11 +114,18 @@
(define (summary-email-body mb)
(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)
)))
(full (cdr mbs))
(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)))
(unpaired-lst
(list ""
"Unpaired transactions:")))
(append income-lst
unpaired-lst)))
;; Creates the summary email structure
(define (make-summary-email mb)