fix blank emails

2024-04-25 21:57:18 -05:00 · 2024-04-25 21:57:18 -05:00 · e35c29d189
parent f891204172
commit e35c29d189
1 changed files with 1 additions and 1 deletions
--- 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)))))