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

Fix handling members without any fees or payments.

Browse source
This commit is contained in:
Dominik Pantůček 2024-10-01 20:34:44 +02:00
parent 09b971ad93
commit 9562d0fa61
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -44,7 +44,8 @@
cal-day
util-git
configuration
texts)
texts
logging)
;; HTML entities
(define (sanitize-html str)
@ -100,7 +101,11 @@
(brmember-nick mr) "</dd>")
(print "<dt>Member ID, Variable Symbol for Payments<br>(Členské číslo, variabilní symbol plateb)</dt><dd>"
(brmember-id mr) "</dd>")
(print "<dt>Balance in CZK<br>(Zůstatek v Kč)</dt><dd>" (caar (reverse bhs)) "</dd>")
(print "<dt>Balance in CZK<br>(Zůstatek v Kč)</dt><dd>"
(if (null? bhs)
"0"
(caar (reverse bhs)))
"</dd>")
(print "<dt>Account for Payments<br>(Účet pro platbu příspěvků)</dt><dd>CZK: 2500079551/2010<br>EUR: CZ93 2010 0000 0021 0007 9552</dd>")
(print "</dl>")
(print "</div>")