diff --git a/src/main.lisp b/src/main.lisp index e11ee68..d3b55a1 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -399,7 +399,18 @@ with the image attached" ((string= registration "full") (setf (tbnl:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JQE") (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 (uiop:println "Health now") (setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form?registration=~A" registration))