Commit 6e07fc0c authored by Dave Cooper's avatar Dave Cooper
Browse files

Merge branch 'hotfix/descriptive-url'

parents 31b76794 ac1c7641
Pipeline #5210 passed with stages
in 12 minutes and 3 seconds
......@@ -384,11 +384,11 @@ values are set into the specified bashee."
(let ((url
(let ((escaped-strings-for-display (html-escape (the strings-for-display))))
(if (the parent)
(if (and (the parent) (typep (the parent) 'base-html-sheet))
(string-append (the parent descriptive-url-base)
"/"
escaped-strings-for-display)
escaped-strings-for-display))))
escaped-strings-for-display))))
(string-downcase url)))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment