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

Fix function naming

Browse source
This commit is contained in:
Marcus Kammer 2024-06-04 20:21:58 +02:00
parent d9500aa9e1
commit 1a6e8dd86a
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/handlers/questionnaire.lisp
View file

@ -12,7 +12,7 @@
(defun questionnaire-uri (request) (defun questionnaire-uri (request)
(questionnaire-uri-p (request-uri request))) (questionnaire-uri-p (request-uri request)))
(defun return-sus-form (lang) (defun choose-sus-form (lang)
"Based on LANG decide which sus form to show." "Based on LANG decide which sus form to show."
(check-type lang string) (check-type lang string)
(cond ((string= lang "en") #'ml-survey/views:sus-form-en) (cond ((string= lang "en") #'ml-survey/views:sus-form-en)
@ -22,4 +22,4 @@
(define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang) (define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)
(let ((survey (make-survey (request-uri*)))) (let ((survey (make-survey (request-uri*))))
(setf *html-lang* lang) (setf *html-lang* lang)
(funcall (return-sus-form lang) (funcall survey 'id)))) (funcall (choose-sus-form lang) (funcall survey 'id))))