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

4
src/members-payments.scm
View file

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