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

No need for survey obj

Browse source
This commit is contained in:
Marcus Kammer 2024-06-16 09:53:17 +02:00
parent 48d8408bc0
commit 5a3af879db
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/handlers/questionnaire.lisp
View file

@ -11,9 +11,8 @@
(defun questionnaire-uri (request) (defun questionnaire-uri (request)
(questionnaire-uri-p (request-uri request))) (questionnaire-uri-p (request-uri request)))
(defun process-questionnaire-get (lang survey) (defun process-questionnaire-get (lang)
(check-type lang string) (check-type lang string)
(check-type survey ml-survey:survey)
(setf *html-lang* lang) (setf *html-lang* lang)
(ml-survey/views:sus-form)) (ml-survey/views:sus-form))
@ -28,6 +27,6 @@
(define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang) (define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)
(let ((s (make-instance 'ml-survey:survey :id (get-survey-id (request-uri*))))) (let ((s (make-instance 'ml-survey:survey :id (get-survey-id (request-uri*)))))
(cond ((eq (hunchentoot:request-method*) :get) (cond ((eq (hunchentoot:request-method*) :get)
(process-questionnaire-get lang s)) (process-questionnaire-get lang))
((eq (hunchentoot:request-method*) :post) ((eq (hunchentoot:request-method*) :post)
(process-questionnaire-post *request* s))))) (process-questionnaire-post *request* s)))))