Commit ac1c7641 authored by Dave Cooper's avatar Dave Cooper
Browse files

make sure parent is of a type to answer descriptive url

parent 31b76794
......@@ -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