diff --git a/src/main.lisp b/src/main.lisp index 1fa9952..a83ec80 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -445,7 +445,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."))))))) - (progn + (when (string= health "now") (setf (tbnl:header-out :HX-Redirect) (format nil "/camp-health-form/?registration=~A" registration)) (log:info (tbnl:headers-out*)) (mail-camp-form data nil)))))