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

Fix prevent assinging slots again if already assigned

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

10
src/models/questionnaire.lisp
View file

@ -30,12 +30,12 @@
(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))
(or timestamp-created (setf timestamp-created (ml-survey/app:today+now)))
(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
uid)))))
(or data-file (setf data-file (pathname (format nil "~a~a/~a.lisp"
(ml-survey/fileops:ensure-surveys-dir)
survey-uid
uid))))))
(defmethod make-questionnaire (&rest initargs &key &allow-other-keys)
"Create a new questionnaire instance.