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

add a thank you response

Browse source
This commit is contained in:
Chris Cochrun 2024-04-24 21:52:48 -05:00
parent 1993554db0
commit cbc3d3ae9a
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/main.lisp
View file

@ -399,7 +399,18 @@ with the image attached"
((string= registration "full") ((string= registration "full")
(setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE") (setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE")
(uiop:println (tbnl:headers-out*)) (uiop:println (tbnl:headers-out*))
(mail-camp-form data nil)))) (mail-camp-form data nil))
((string= registration "later")
(let ((first-name (cdr (assoc "firstname" data :test 'string=)))
(last-name (cdr (assoc "lastname" data :test 'string=))))
(with-html-string
(:div
:class "mt-8"
(:p :class "text-lg"
(format nil
"Thank You ~A, can't wait to see you at camp!!"
(concat
first-name " " last-name)))))))))
(progn (progn
(uiop:println "Health now") (uiop:println "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))