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=)))
(health (cdr (assoc "health-form" data :test 'string=))))
(log:info data)
(when (not data)
(return))
;; This is extremely necessary so that cors is right
(setf (tbnl:header-out :access-control-expose-headers) "*")
(mail-camp-form data nil)
(post-camp-data data)
(if (string= health "bleh")
(mail-camp-form data nil)
(if (string= health "later")
(progn (uiop:println "Selected health later")
(cond ((string= registration "now")
(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 :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.")))))))
(when (string= health "bleh")
(when (string= health "now")
(setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form/?registration=~A" registration))
(log:info (tbnl:headers-out*))
(log:info "Sending them to the health form for camp")))))