diff --git a/src/export-web-static.scm b/src/export-web-static.scm index 8ed8abc..4b0b15d 100644 --- a/src/export-web-static.scm +++ b/src/export-web-static.scm @@ -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) "") (print "
Member ID, Variable Symbol for Payments
(Členské číslo, variabilní symbol plateb)
" (brmember-id mr) "
") - (print "
Balance in CZK
(Zůstatek v Kč)
" (caar (reverse bhs)) "
") + (print "
Balance in CZK
(Zůstatek v Kč)
" + (if (null? bhs) + "0" + (caar (reverse bhs))) + "
") (print "
Account for Payments
(Účet pro platbu příspěvků)
CZK: 2500079551/2010
EUR: CZ93 2010 0000 0021 0007 9552
") (print "") (print "")