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 #:extract-lang-and-filename
#:questionnaires-list-files #:questionnaires-list-files
#:questionnaires-dir #:questionnaires-dir
#:make-surveys-db-file)) #:make-surveys-db-file
#:survey-db))
(in-package #:ml-survey/fileops) (in-package #:ml-survey/fileops)

5
src/surveys.lisp
View file

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