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

Fix survey function call

Browse source
This commit is contained in:
Marcus Kammer 2024-06-02 21:10:08 +02:00
parent 66054cddbe
commit 8ec67cd985
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/handlers/survey.lisp
View file

@ -3,11 +3,12 @@
(defun survey-uri-p (uri)
"Check if the request URI matches the pattern '/survey/<numeric>'"
(check-type uri string)
(let ((parts (split-uri uri)))
(let ((parts (split-uri uri))
(survey (make-survey uri)))
(and (= (length parts) 2)
(string= (first parts) "survey")
(every #'digit-char-p (second parts))
(survey-id-p (parse-integer (second parts))))))
(funcall survey 'id-p))))
(defun survey-uri (request)
(let ((uri (request-uri request)))