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

Better describe anchor

Browse source
This commit is contained in:
Marcus Kammer 2024-06-20 23:29:47 +02:00
parent 364a06980a
commit 5da99b036e
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/survey.lisp
View file

@ -45,5 +45,6 @@
for value = (cdr property) do for value = (cdr property) do
(:dt key) (:dt key)
(cond ((string= key "questionnaire") (cond ((string= key "questionnaire")
(:dd (:a :href (build-questionnaire-link (survey-id survey) value) value))) (:dd (:a :href (build-questionnaire-link (survey-id survey) value)
(format nil "Open Questionnaire ~a" value))))
(t (:dd value))))))) (t (:dd value)))))))