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

Create questionnaire with needed slots

Browse source
This commit is contained in:
Marcus Kammer 2025-02-21 08:31:09 +01:00
parent 419dda05f6
commit e81df7eb42
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 5 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.34"
:version "0.5.35"
:author "Marcus Kammer <marcus.kammer@mailbox.org>"
:source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
:licence "MIT"

5
src/questionnaire/handler.lisp
View file

@ -33,7 +33,10 @@
(define-easy-handler (questionnaire-handler :uri #'questionnaire-uri) ()
(let* ((survey-uid (parse-integer (extract-uri-param :survey-id)))
(questionnaire (make-questionnaire :survey-uid survey-uid
(questionnaire (make-questionnaire :timestamp-created nil
:uid nil
:data-file nil
:survey-uid survey-uid
:lang (extract-uri-param :lang)
:name (extract-uri-param :questionnaire))))
(process-request questionnaire)))