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

Replace function calls by make-survey

Browse source
This commit is contained in:
Marcus Kammer 2024-06-02 19:54:08 +02:00
parent 615c547b19
commit 56aa9d904c
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/handlers/questionnaire.lisp
View file

@ -2,11 +2,12 @@
(defun questionnaire-uri-p (uri) (defun questionnaire-uri-p (uri)
"Check if the request URI matches the pattern '/survey/<numeric>'" "Check if the request URI matches the pattern '/survey/<numeric>'"
(let ((parts (split-uri uri))) (let ((parts (split-uri uri))
(survey (make-survey uri)))
(and (= (length parts) 3) (and (= (length parts) 3)
(string= (first parts) "survey") (string= (first parts) "survey")
(every #'digit-char-p (second parts)) (every #'digit-char-p (second parts))
(survey-id-p (parse-integer (second parts)))))) (funcall survey 'id-p))))
(defun questionnaire-uri (request) (defun questionnaire-uri (request)
(questionnaire-uri-p (request-uri request))) (questionnaire-uri-p (request-uri request)))
@ -19,6 +20,6 @@
(t (error "Unsupported language: ~A" lang)))) (t (error "Unsupported language: ~A" lang))))
(define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang) (define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)
(let ((survey-id (survey-id (request-uri*)))) (let ((survey (make-survey (request-uri*))))
(setf *html-lang* lang) (setf *html-lang* lang)
(funcall (return-sus-form lang) survey-id))) (funcall (return-sus-form lang) (funcall survey 'id))))