Show timestamp in responses
This commit is contained in:
parent
2bed2eea49
commit
0d52cbec2b
3 changed files with 8 additions and 9 deletions
|
@ -21,7 +21,7 @@
|
||||||
(questionnaire-id (generate-uuid)))
|
(questionnaire-id (generate-uuid)))
|
||||||
(store-response (ensure-data-file-exist (ml-survey:survey-id survey)
|
(store-response (ensure-data-file-exist (ml-survey:survey-id survey)
|
||||||
questionnaire-id)
|
questionnaire-id)
|
||||||
post-params)
|
(push (format nil "~aT~a" (today) (now)) post-params))
|
||||||
(ml-survey/views:questionnaire-submit)))
|
(ml-survey/views:questionnaire-submit)))
|
||||||
|
|
||||||
(define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)
|
(define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)
|
||||||
|
|
|
@ -27,7 +27,7 @@ Returns a list of integers."
|
||||||
(loop for f in files
|
(loop for f in files
|
||||||
for resp = (load-response f)
|
for resp = (load-response f)
|
||||||
collect
|
collect
|
||||||
(sus-calc-score-per-row (extract-numbers resp))))
|
(cons (car resp) (sus-calc-score-per-row (extract-numbers (cdr resp))))))
|
||||||
|
|
||||||
(defun survey-uri-p (uri)
|
(defun survey-uri-p (uri)
|
||||||
(let ((parts (split-uri uri)))
|
(let ((parts (split-uri uri)))
|
||||||
|
|
|
@ -12,16 +12,15 @@
|
||||||
(ml-survey:survey-html survey)
|
(ml-survey:survey-html survey)
|
||||||
(when results
|
(when results
|
||||||
(:h2 "Questionnaire Results")
|
(:h2 "Questionnaire Results")
|
||||||
(let ((count-answers (length (car results))))
|
(let ((count-answers (length (cdr (car results)))))
|
||||||
(:table :class "table table-hover"
|
(:table :class "table table-hover"
|
||||||
(:caption "Questionnaire results table")
|
(:caption "Questionnaire results table")
|
||||||
(:thead
|
(:thead
|
||||||
(:tr
|
(:tr
|
||||||
(loop for i from 1 below count-answers do
|
(:th :scope "col" "Time")
|
||||||
(:th :scope "col" (format nil "Q ~a" i)))
|
(loop for i from 1 below count-answers
|
||||||
|
do (:th :scope "col" (format nil "Q ~a" i)))
|
||||||
(:th :scope "col" "SUS Score")))
|
(:th :scope "col" "SUS Score")))
|
||||||
(:tbody
|
(:tbody
|
||||||
(loop for result in results do
|
(loop for result in results
|
||||||
(:tr
|
do (:tr (mapcar (lambda (x) (:td x)) result))))))))))
|
||||||
(loop for answer in result do
|
|
||||||
(:td answer)))))))))))
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue