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

Update survey details view

Browse source
This commit is contained in:
Marcus Kammer 2024-06-22 15:07:24 +02:00
parent b37dffa8cc
commit 64f901d232
1 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
src/views/survey.lisp
View file

@ -4,23 +4,24 @@
"Generates the view to show the survey created."
(check-type survey ml-survey:survey)
(with-page (:title "Survey Details")
(navbar-en)
(:section :class "container"
(:p (format nil "Survey ID: ~a" (ml-survey:survey-id survey)))
(:h2 "Properties")
(ml-survey:survey-html survey)
(when results
(:h2 "Questionnaire Results")
(let ((count-answers (length (car results))))
(:table :class "table table-hover"
(:thead
(body-header "Survey Details" (navbar-en))
(:main :id "main-content"
:class "container"
(:p (format nil "ID: ~a" (ml-survey:survey-id survey)))
(:h2 "Properties")
(ml-survey:survey-html survey)
(when results
(:h2 "Questionnaire Results")
(let ((count-answers (length (car results))))
(:table :class "table table-hover"
(:thead
(:tr
(loop for i from 1 to count-answers do
(if (= i count-answers)
(:th :scope "col" "SUS Score")
(:th :scope "col" (format nil "Q ~a" i)))))
(:tbody
(loop for result in results do
(:tr
(loop for i from 1 to count-answers do
(if (= i count-answers)
(:th :scope "col" "SUS Score")
(:th :scope "col" (format nil "Q ~a" i)))))
(:tbody
(loop for result in results do
(:tr
(loop for answer in result do
(:td answer))))))))))))
(loop for answer in result do
(:td answer))))))))))))