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-06 17:33:03 +02:00
parent 241f345561
commit 8ecf15f226
4 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/handlers/create-survey.lisp
View file

@ -3,6 +3,6 @@
(define-easy-handler (create-survey :uri "/create-survey") nil
(let ((post-params (post-parameters* *request*))
(uid (generate-uuid))
(stored-surveys (load-response (make-surveys-db-path))))
(store-response (make-surveys-db-path) (push (list uid post-params) stored-surveys))
(stored-surveys (load-response (make-surveys-db-file))))
(store-response (make-surveys-db-file) (push (list uid post-params) stored-surveys))
(ml-survey/views:create-survey uid)))

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

@ -14,7 +14,7 @@
(defun ensure-data-file-exist (survey-id questionnaire-id)
(ensure-directories-exist (format nil "~a/~a/~a.lisp"
*survey-data-dir*
(surveys-data-dir)
survey-id
questionnaire-id)))

4
src/handlers/survey.lisp
View file

@ -5,7 +5,7 @@
(case action
(id (second (split-uri uri)))
(id-p (let ((ids (mapcar #'car (load-response (make-surveys-db-path)))))
(id-p (let ((ids (mapcar #'car (load-response (make-surveys-db-file)))))
(if (member (parse-integer (survey-fn 'id)) ids) t nil)))
(uri-p (let ((parts (split-uri uri)))
@ -15,7 +15,7 @@
(survey-fn 'id-p))))
(properties (first (rest (assoc (parse-integer (survey-fn 'id))
(load-response (make-surveys-db-path)))))))))
(load-response (make-surveys-db-file)))))))))
#'survey-fn))
(defun survey-uri (request)

2
src/handlers/surveys.lisp
View file

@ -1,5 +1,5 @@
(in-package :ml-survey/handlers)
(define-easy-handler (surveys :uri "/") nil
(let ((stored-surveys (load-response (make-surveys-db-path))))
(let ((stored-surveys (load-response (make-surveys-db-file))))
(ml-survey/views:surveys stored-surveys)))