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

Provide survey-db function

Browse source
This commit is contained in:
Marcus Kammer 2024-10-27 10:39:42 +01:00
parent eb1c68cd1e
commit d7d4f82bf3
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/fileops.lisp
View file

@ -13,7 +13,8 @@
#:extract-lang-and-filename
#:questionnaires-list-files
#:questionnaires-dir
#:make-surveys-db-file))
#:make-surveys-db-file
#:survey-db))
(in-package #:ml-survey/fileops)

5
src/surveys.lisp
View file

@ -57,9 +57,8 @@ SURVEYS: List of survey objects."
nil))))))))))
(define-easy-handler (surveys-handler :uri "/") nil
(let* ((survey-db (ml-survey/fileops:read-from-file (ml-survey/fileops:make-surveys-db-file)))
(list-of-surveys (mapcar (lambda (x)
(let* ((list-of-surveys (mapcar (lambda (x)
(make-instance 'ml-survey/survey:survey
:id (format nil "~a" (first x))))
survey-db)))
(ml-survey/fileops:survey-db))))
(view list-of-surveys)))