From 9562d0fa6150cb9671c8cf796462b5f944b6bc3e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 1 Oct 2024 20:34:44 +0200
Subject: [PATCH] Fix handling members without any fees or payments.

---
 src/export-web-static.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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) "</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>")