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

Fix not assinging a new uid if already provided

Browse source
This commit is contained in:
Marcus Kammer 2025-02-20 20:02:13 +01:00
parent 209a6e1fed
commit 53762e9400
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 2 additions and 2 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.30"
:version "0.5.31"
:author "Marcus Kammer <marcus.kammer@mailbox.org>"
:source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
:licence "MIT"

2
src/models/questionnaire.lisp
View file

@ -31,7 +31,7 @@
(defmethod initialize-instance :after ((q questionnaire) &key)
(with-slots (timestamp-created uid data-file survey-uid) q
(setf timestamp-created (ml-survey/app:today+now))
(setf uid (ml-survey/app:generate-uuid))
(or uid (setf uid (ml-survey/app:generate-uuid)))
(setf data-file (pathname (format nil "~a~a/~a.lisp"
(ml-survey/fileops:ensure-surveys-dir)
survey-uid