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

fixing the form fixer...

Browse source
This commit is contained in:
Chris Cochrun 2024-04-25 21:46:54 -05:00
parent b3851df8ab
commit 6cf35dea02
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/main.lisp
View file

@ -314,7 +314,9 @@ with the image attached"
(:table (:table
(loop for row in form (loop for row in form
do (:tr do (:tr
(:th (car row)) (:th (string-capitalize
(string-replace-all
"-" (car row) " ")))
(:td (cdr row)))))))))))) (:td (cdr row))))))))))))
(defun mail-health-form (form attachment) (defun mail-health-form (form attachment)
@ -356,7 +358,9 @@ with the image attached"
(:table (:table
(loop for row in form (loop for row in form
do (:tr do (:tr
(:th (string-capitalize (car row))) (:th (string-capitalize
(string-replace-all
"-" (car row) " ")))
(:td (cdr row)))))))))))) (:td (cdr row))))))))))))
(tbnl:define-easy-handler (health-form :uri "/health-form") () (tbnl:define-easy-handler (health-form :uri "/health-form") ()