marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Remove name parameter

Browse source
This commit is contained in:
Marcus Kammer 2024-05-23 09:15:15 +02:00
parent f15745c419
commit cdf694734c
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
main.cl
View file

@ -15,7 +15,7 @@
(defvar *company-logo* "company_logo.png") (defvar *company-logo* "company_logo.png")
(defun sus-form-en (name) (defun sus-form-en ()
(with-page (:title "SUS Form" :main-con t) (with-page (:title "SUS Form" :main-con t)
(:nav :class "navbar bg-body-tertiary" (:nav :class "navbar bg-body-tertiary"
(:div :class "container" (:div :class "container"
@ -26,7 +26,6 @@
(:form :action "/submit" (:form :action "/submit"
:method "post" :method "post"
:class (spacing :property "m" :side "y" :size 5) :class (spacing :property "m" :side "y" :size 5)
(:input :type "text" :name "name" :value name :style "display:none")
(multi-form (multi-form
(:ask "I’d like to use this system frequently." (:ask "I’d like to use this system frequently."
:group "sus-1" :group "sus-1"
@ -160,7 +159,7 @@
(define-easy-handler (sus :uri "/") ((lang) (name)) (define-easy-handler (sus :uri "/") ((lang) (name))
(setf *html-lang* lang) (setf *html-lang* lang)
(cond ((string= lang "en") (cond ((string= lang "en")
(sus-form-en name)))) (sus-form-en))))
(define-easy-handler (submit :uri "/submit") nil (define-easy-handler (submit :uri "/submit") nil
(setf (content-type*) "text/plain") (setf (content-type*) "text/plain")