From cb40b086257457de6a6494117775ec7b6b748163 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Sun, 16 Jun 2024 09:21:09 +0200 Subject: [PATCH] Get URI from request-uri function --- src/views/sus.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/src/views/sus.lisp b/src/views/sus.lisp index 5dfb19b..acd918a 100644 --- a/src/views/sus.lisp +++ b/src/views/sus.lisp @@ -12,18 +12,15 @@ (load form-path)) nil) -(defun sus-form (survey-id &optional action) - (let ((action (if action - action - (format nil "/survey/~a/questionnaire/sus" survey-id)))) +(defun sus-form () (with-page (:title "SUS Form") (:section :class "container my-5" (:h2 "Usability Feedback Form") (:p "Please fill out the following forms and press the submit button.") - (:form :action action + (:form :action (hunchentoot:request-uri*) :method "post" :class (spacing :property "m" :side "y" :size 5) ;; load the multi-form from disk (load-form *html-lang* "sus.lisp") (btn-primary (:type "submit") - (find-l10n "submit" *html-lang* *l10n*))))))) + (find-l10n "submit" *html-lang* *l10n*))))))