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

Prevent calling the same function two times

Browse source
This commit is contained in:
Marcus Kammer 2025-02-15 22:22:53 +01:00
parent f337a9ac73
commit 98ab858167
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
dev.metalisp.survey.asd
View file

@ -2,7 +2,7 @@
(defsystem "dev.metalisp.survey"
:description "Create questionnaires and analyze the results."
:version "0.5.18"
:version "0.5.20"
:author "Marcus Kammer <marcus.kammer@mailbox.org>"
:source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
:licence "MIT"

12
src/create/handler.lisp
View file

@ -5,11 +5,13 @@
(view))
(defun process-post (request)
(let ((post-params (hunchentoot:post-parameters* request))
(uid (ml-survey/app:generate-uuid))
(stored-surveys (ml-survey/fileops:read-from-file (ml-survey/fileops:make-surveys-db-file))))
(ml-survey/fileops:write-to-file (ml-survey/fileops:make-surveys-db-file)
(push (list uid post-params) stored-surveys))
(let* ((post-params (hunchentoot:post-parameters* request))
(uid (ml-survey/app:generate-uuid))
(surveys-db-file (ml-survey/fileops:make-surveys-db-file))
(stored-surveys (ml-survey/fileops:read-from-file surveys-db-file))
(new-value (list uid post-params)))
(ml-survey/fileops:write-to-file surveys-db-file
(push new-value stored-surveys))
(view uid)))
(defun process-request (request)