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

make sure form is real

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

3
src/main.lisp
View file

@ -490,8 +490,9 @@ with the image attached"
(log:info data) (log:info data)
;; 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) "*")
(if data
(post-camp-data data) (post-camp-data data)
(mail-camp-form data nil) (mail-camp-form data nil))
(if (string= health "later") (if (string= health "later")
(progn (uiop:println "Selected health later") (progn (uiop:println "Selected health later")
(cond ((string= registration "now") (cond ((string= registration "now")