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

Get URI from request-uri function

Browse source
This commit is contained in:
Marcus Kammer 2024-06-16 09:21:09 +02:00
parent 7284785def
commit cb40b08625
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/views/sus.lisp
View file

@ -12,18 +12,15 @@
(load form-path)) (load form-path))
nil) nil)
(defun sus-form (survey-id &optional action) (defun sus-form ()
(let ((action (if action
action
(format nil "/survey/~a/questionnaire/sus" survey-id))))
(with-page (:title "SUS Form") (with-page (:title "SUS Form")
(:section :class "container my-5" (:section :class "container my-5"
(:h2 "Usability Feedback Form") (:h2 "Usability Feedback Form")
(:p "Please fill out the following forms and press the submit button.") (:p "Please fill out the following forms and press the submit button.")
(:form :action action (:form :action (hunchentoot:request-uri*)
:method "post" :method "post"
:class (spacing :property "m" :side "y" :size 5) :class (spacing :property "m" :side "y" :size 5)
;; load the multi-form from disk ;; load the multi-form from disk
(load-form *html-lang* "sus.lisp") (load-form *html-lang* "sus.lisp")
(btn-primary (:type "submit") (btn-primary (:type "submit")
(find-l10n "submit" *html-lang* *l10n*))))))) (find-l10n "submit" *html-lang* *l10n*))))))