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

fixing camp form

Browse source
This commit is contained in:
Chris Cochrun 2024-04-27 21:55:23 -05:00
parent 930c02c95d
commit 29bbdd6cd2
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/main.lisp
View file

@ -488,13 +488,11 @@ with the image attached"
(registration (cdr (assoc "registration" data :test 'string=))) (registration (cdr (assoc "registration" data :test 'string=)))
(health (cdr (assoc "health-form" data :test 'string=)))) (health (cdr (assoc "health-form" data :test 'string=))))
(log:info data) (log:info data)
(when (not data)
(return))
;; This is extremely necessary so that cors is right ;; This is extremely necessary so that cors is right
(setf (tbnl:header-out :access-control-expose-headers) "*") (setf (tbnl:header-out :access-control-expose-headers) "*")
(mail-camp-form data nil)
(post-camp-data data) (post-camp-data data)
(if (string= health "bleh") (mail-camp-form data nil)
(if (string= health "later")
(progn (uiop:println "Selected health later") (progn (uiop:println "Selected health later")
(cond ((string= registration "now") (cond ((string= registration "now")
(setf (hunchentoot:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JPJ") (setf (hunchentoot:header-out :HX-Redirect) "https://secure.myvanco.com/L-Z772/campaign/C-13JPJ")
@ -518,7 +516,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.")))))))
(when (string= health "bleh") (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*))
(log:info "Sending them to the health form for camp"))))) (log:info "Sending them to the health form for camp")))))