From e35c29d189cceeb467cfebea10bf2f80e59ea8c9 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Thu, 25 Apr 2024 21:57:18 -0500
Subject: [PATCH] fix blank emails

---
 src/main.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/main.lisp b/src/main.lisp
index 1fa9952..a83ec80 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -445,7 +445,7 @@ with the image attached"
                            (:p "Can't wait to see you at camp!!")
                            (:p :class "text-md"
                                "If you'd like to pay for your registration go to the donate tab in the top right when you are ready and find the camp registration option.")))))))
-        (progn
+        (when (string= health "now")
           (setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form/?registration=~A" registration))
           (log:info (tbnl:headers-out*))
           (mail-camp-form data nil)))))