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

Questionnaire model moved to models package

Browse source
This commit is contained in:
Marcus Kammer 2025-02-15 12:18:12 +01:00
parent 49ce629956
commit 429c862ff0
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/questionnaire/model.lisp
View file

@ -1,13 +0,0 @@
;;; -*- mode: lisp; coding: utf-8; -*-
(in-package :ml-survey/questionnaire)
(defclass questionnaire ()
((name :initarg :name :reader questionnaire-name)
(type :initarg :type :reader questionnaire-type)
(lang :initarg :lang :reader questionnaire-lang)))
(defmethod create-questionnaire-data ((q questionnaire) post-params)
(list :type (questionnaire-type q)
:name (questionnaire-name q)
:timestamp (ml-survey/app:today+now)
:post-data post-params))