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

Fix thead loop

Browse source
This commit is contained in:
Marcus Kammer 2024-06-22 17:40:10 +02:00
parent b39855393d
commit 11ea452104
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/views/survey.lisp
View file

@ -17,12 +17,11 @@
(:caption "Questionnaire results table") (:caption "Questionnaire results table")
(:thead (:thead
(:tr (:tr
(loop for i from 1 to count-answers do (loop for i from 1 below count-answers do
(if (= i count-answers) (:th :scope "col" (format nil "Q ~a" i)))
(:th :scope "col" "SUS Score") (:th :scope "col" "SUS Score")))
(:th :scope "col" (format nil "Q ~a" i))))) (:tbody
(:tbody (loop for result in results do
(loop for result in results do (:tr
(:tr (loop for answer in result do
(loop for answer in result do (:td answer)))))))))))
(:td answer))))))))))))