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

Simplify logic in functions

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

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

@ -6,19 +6,17 @@
(survey (make-survey uri))) (survey (make-survey uri)))
(and (= (length parts) 3) (and (= (length parts) 3)
(string= (first parts) "survey") (string= (first parts) "survey")
(and (funcall survey 'id) (funcall survey 'id)
(every #'digit-char-p (second parts)))
(search "submit" (third parts))))) (search "submit" (third parts)))))
(defun questionnaire-submit-uri (request) (defun questionnaire-submit-uri (request)
(questionnaire-submit-uri-p (request-uri request))) (questionnaire-submit-uri-p (request-uri request)))
(defun ensure-data-file-exist (id &optional lang) (defun ensure-data-file-exist (survey-id)
(ensure-directories-exist (format nil "~a~a/~a-~a.lisp" (ensure-directories-exist (format nil "~a~a/~a.lisp"
*survey-data-dir* *survey-data-dir*
id survey-id
(generate-uuid) (generate-uuid))))
lang)))
(define-easy-handler (questionnaire-submit :uri #'questionnaire-submit-uri) nil (define-easy-handler (questionnaire-submit :uri #'questionnaire-submit-uri) nil
(let ((post-params (post-parameters* *request*)) (let ((post-params (post-parameters* *request*))