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

Generate id when handler is called

Browse source
This commit is contained in:
Marcus Kammer 2024-06-05 16:49:19 +02:00
parent 5d024b1aa0
commit 8077b7fa55
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -12,14 +12,16 @@
(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 (survey-id) (defun ensure-data-file-exist (survey-id questionnaire-id)
(ensure-directories-exist (format nil "~a~a/~a.lisp" (ensure-directories-exist (format nil "~a/~a/~a.lisp"
*survey-data-dir* *survey-data-dir*
survey-id survey-id
(generate-uuid)))) questionnaire-id)))
(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*))
(questionnaire-id (generate-uuid))
(survey (make-survey (request-uri*)))) (survey (make-survey (request-uri*))))
(store-response (ensure-data-file-exist (funcall survey 'id)) post-params) (store-response (ensure-data-file-exist (funcall survey 'id) questionnaire-id)
post-params)
(ml-survey/views:questionnaire-submit))) (ml-survey/views:questionnaire-submit)))