Filter out zero fees.
This commit is contained in:
parent
7c4c55eb9e
commit
855b2cca2a
2 changed files with 16 additions and 10 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue