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-02 14:38:56 +02:00
parent cdb8381dfe
commit bfd430a317
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/handlers/questionnaire-submit.lisp
View file

@ -1,11 +1,12 @@
(in-package :ml-survey/handlers)
(defun questionnaire-submit-uri-p (uri)
"Check if the request URI matches the pattern '/survey/<numeric>'"
"Check if the request URI matches the pattern '/survey/<numeric>/submit'"
(let ((parts (split-uri uri)))
(and (= (length parts) 3)
(string= (first parts) "survey")
(every #'digit-char-p (second parts))
(and (survey-id-p (parse-integer (second parts)))
(every #'digit-char-p (second parts)))
(search "submit" (third parts)))))
(defun questionnaire-submit-uri (request)
@ -20,6 +21,6 @@
(define-easy-handler (questionnaire-submit :uri #'questionnaire-submit-uri) nil
(let ((post-params (post-parameters* *request*))
(id (second (split-uri (request-uri*)))))
(id (survey-id (request-uri*))))
(store-response (ensure-data-file-exist id) post-params)
(ml-survey/views:questionnaire-submit)))

4
src/handlers/questionnaire.lisp
View file

@ -6,7 +6,7 @@
(and (= (length parts) 3)
(string= (first parts) "survey")
(every #'digit-char-p (second parts))
(valid-survey-id-p (parse-integer (second parts))))))
(survey-id-p (parse-integer (second parts))))))
(defun questionnaire-uri (request)
(questionnaire-uri-p (request-uri request)))
@ -19,6 +19,6 @@
(t (error "Unsupported language: ~A" lang))))
(define-easy-handler (questionnaire :uri #'questionnaire-uri) (lang)
(let ((survey-id (second (split-uri (request-uri*)))))
(let ((survey-id (survey-id (request-uri*))))
(setf *html-lang* lang)
(funcall (return-sus-form lang) survey-id)))