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

Filter out zero fees.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-18 22:19:34 +02:00
parent 7c4c55eb9e
commit 855b2cca2a
2 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/export-web-static.scm
View file

@ -33,6 +33,7 @@
(import scheme
(chicken base)
(chicken format)
brmember)
(define (print-html-member mr)
@ -42,10 +43,13 @@
(brmember-nick mr)
"</title>")
(print "</head>")
(print "<body>")
(print "</body>")
(print "</html>"))
(define (gen-html-member mr)
#f)
(let ((fname (format "~A.html" (brmember-id mr))))
#f))
(define (gen-html-members mb)
#f)

20
src/members-payments.scm
View file

@ -243,15 +243,17 @@
;; Converts fee prescription to transactions usable in balance
;; history
(define (calendar->balance-history mc)
(map (lambda (mce)
(let ((fee (member-calendar-entry->fee mce)))
(list (cal-ensure-day (car mce))
(- fee)
'CZK
(cadr mce)
(- fee)
"Fee")))
mc))
(filter (lambda (mcr)
(not (= (cadr mcr) 0)))
(map (lambda (mce)
(let ((fee (member-calendar-entry->fee mce)))
(list (cal-ensure-day (car mce))
(- fee)
'CZK
(cadr mce)
(- fee)
"Fee")))
mc)))
;; Converts bank transactions to transactions usable in balance
;; history