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

Optimize code readability

Browse source
This commit is contained in:
Marcus Kammer 2024-06-15 09:14:37 +02:00
parent 37217905df
commit f1b8f0b7d0
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/handlers/questionnaire.lisp
View file

@ -14,20 +14,21 @@
(defun choose-sus-form (lang)
"Based on LANG decide which sus form to show."
(check-type lang string)
(cond ((string= lang "en") #'ml-survey/views:sus-form-en)
((string= lang "de") #'ml-survey/views:sus-form-de)
(t (error "Unsupported language: ~A" lang))))
(case (string-downcase lang)
("en" #'ml-survey/views:sus-form-en)
("de" #'ml-survey/views:sus-form-de)
(otherwise (error "Unsupported language: ~A" lang))))
(defun process-questionnaire-get (lang s)
(defun process-questionnaire-get (lang survey)
(check-type lang string)
(check-type s ml-survey:survey)
(check-type survey ml-survey:survey)
(setf *html-lang* lang)
(funcall (choose-sus-form lang) (ml-survey:survey-id s)))
(funcall (choose-sus-form lang) (ml-survey:survey-id survey)))
(defun process-questionnaire-post (request s)
(defun process-questionnaire-post (request survey)
(let ((post-params (post-parameters* request))
(questionnaire-id (generate-uuid)))
(store-response (ensure-data-file-exist (ml-survey:survey-id s)
(store-response (ensure-data-file-exist (ml-survey:survey-id survey)
questionnaire-id)
post-params)
(ml-survey/views:questionnaire-submit)))