diff --git a/src/main.lisp b/src/main.lisp index 2431fea..b922e4e 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -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")))))