From 5da99b036e0de13b34c284846a43259b9f836910 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 20 Jun 2024 23:29:47 +0200 Subject: [PATCH] Better describe anchor --- src/survey.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/survey.lisp b/src/survey.lisp index f949daf..5cddaaf 100644 --- a/src/survey.lisp +++ b/src/survey.lisp @@ -45,5 +45,6 @@ for value = (cdr property) do (:dt key) (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)))))))