From 855b2cca2a673a32edaaddb3ee38e6159d773b5a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sun, 18 Jun 2023 22:19:34 +0200 Subject: [PATCH] Filter out zero fees. --- src/export-web-static.scm | 6 +++++- src/members-payments.scm | 20 +++++++++++--------- 2 files changed, 16 insertions(+), 10 deletions(-) diff --git a/src/export-web-static.scm b/src/export-web-static.scm index b230b21..6b484c3 100644 --- a/src/export-web-static.scm +++ b/src/export-web-static.scm @@ -33,6 +33,7 @@ (import scheme (chicken base) + (chicken format) brmember) (define (print-html-member mr) @@ -42,10 +43,13 @@ (brmember-nick mr) "") (print "") + (print "") + (print "") (print "")) (define (gen-html-member mr) - #f) + (let ((fname (format "~A.html" (brmember-id mr)))) + #f)) (define (gen-html-members mb) #f) diff --git a/src/members-payments.scm b/src/members-payments.scm index 7c55b8f..183f443 100644 --- a/src/members-payments.scm +++ b/src/members-payments.scm @@ -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