Align module name with web resource
Instead of survey/ use questionnaire/ resource name.
This commit is contained in:
parent
98ab858167
commit
8cee7a5e6b
3 changed files with 3 additions and 3 deletions
|
@ -2,7 +2,7 @@
|
|||
|
||||
(defsystem "dev.metalisp.survey"
|
||||
:description "Create questionnaires and analyze the results."
|
||||
:version "0.5.20"
|
||||
:version "0.5.21"
|
||||
:author "Marcus Kammer <marcus.kammer@mailbox.org>"
|
||||
:source-control (:git "https://code.metalisp.dev/marcuskammer/dev.metalisp.survey.git")
|
||||
:licence "MIT"
|
||||
|
|
|
@ -47,7 +47,7 @@
|
|||
(cdr (assoc "description" (survey-properties survey) :test #'string-equal)))
|
||||
|
||||
(defun build-questionnaire-link (survey-id resource)
|
||||
(format nil "/survey/~a~a" survey-id resource))
|
||||
(format nil "/questionnaire/~a~a" survey-id resource))
|
||||
|
||||
(defmethod survey-html ((survey survey))
|
||||
(spinneret:with-html
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
"Check if the request URI matches the pattern '/survey/<numeric>/lang/type'"
|
||||
(let ((parts (ml-survey/app:split-uri uri)))
|
||||
(and (= (length parts) 4)
|
||||
(string= (first parts) "survey")
|
||||
(string= (first parts) "questionnaire")
|
||||
(every #'digit-char-p (second parts))
|
||||
(= 2 (length (third parts))))))
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue