TFC/tfcconnection
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix blank emails

Browse source
This commit is contained in:
Chris Cochrun 2024-04-25 21:57:18 -05:00
parent f891204172
commit e35c29d189
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/main.lisp
View file

@ -445,7 +445,7 @@ with the image attached"
(:p "Can't wait to see you at camp!!") (:p "Can't wait to see you at camp!!")
(:p :class "text-md" (: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."))))))) "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)) (setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form/?registration=~A" registration))
(log:info (tbnl:headers-out*)) (log:info (tbnl:headers-out*))
(mail-camp-form data nil))))) (mail-camp-form data nil)))))