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

Update survey details view

Browse source
This commit is contained in:
Marcus Kammer 2024-06-22 15:07:24 +02:00
parent b37dffa8cc
commit 64f901d232
1 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/views/survey.lisp
View file

@ -4,9 +4,10 @@
"Generates the view to show the survey created." "Generates the view to show the survey created."
(check-type survey ml-survey:survey) (check-type survey ml-survey:survey)
(with-page (:title "Survey Details") (with-page (:title "Survey Details")
(navbar-en) (body-header "Survey Details" (navbar-en))
(:section :class "container" (:main :id "main-content"
(:p (format nil "Survey ID: ~a" (ml-survey:survey-id survey))) :class "container"
(:p (format nil "ID: ~a" (ml-survey:survey-id survey)))
(:h2 "Properties") (:h2 "Properties")
(ml-survey:survey-html survey) (ml-survey:survey-html survey)
(when results (when results