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")
(: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 answer in result do
(:td answer))))))))))))
(loop for i from 1 below count-answers do
(:th :scope "col" (format nil "Q ~a" i)))
(:th :scope "col" "SUS Score")))
(:tbody
(loop for result in results do
(:tr
(loop for answer in result do
(:td answer)))))))))))