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

Refactor questionnaire db

Browse source
This commit is contained in:
Marcus Kammer 2024-05-31 12:17:38 +02:00
parent cd26142b47
commit c288698276
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/pages.lisp
View file

@ -53,20 +53,20 @@
(:h3 "Questionnaires") (:h3 "Questionnaires")
(:div :class "mb-3" (:div :class "mb-3"
(let ((questionnaires '(("sus?lang=de" "System Usability Scale (Deutsch)") (let ((questionnaires '(("System Usability Scale (Deutsch)" "/sus?lang=de")
("sus?lang=en" "System Usability Scale (English)")))) ("System Usability Scale (English)" "/sus?lang=en"))))
(loop for el in questionnaires (loop for el in questionnaires
for key = (first el) for name = (first el)
for value = (second el) do for uri = (second el) do
(:div :class "form-check" (:div :class "form-check"
(:input :class "form-check-input" (:input :class "form-check-input"
:type "checkbox" :type "checkbox"
:value key :value uri
:id key :id uri
:name "questionnaire" :name "questionnaire"
(:label :class "form-check-label" (:label :class "form-check-label"
:for key :for uri
value)))))) name))))))
(:button :type"Submit" (:button :type"Submit"
:class "btn btn-primary" :class "btn btn-primary"
@ -134,6 +134,6 @@
for value = (cdr property) do for value = (cdr property) do
(:li :class "list-group-item" (:li :class "list-group-item"
(if (string= key "questionnaire") (if (string= key "questionnaire")
(:a :href (concatenate 'string "/survey/" id "/" value) (:a :href (concatenate 'string "/survey/" id value)
value) value)
(format nil "~a: ~a" key value))))))))) (format nil "~a: ~a" key value)))))))))