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

try to protect descriptive-url

parent 83d7b044
......@@ -113,7 +113,7 @@ object.")
(append (mapcar #'(lambda(extension)
(string-append url-base (if (zerop (length url-base)) "" "/") extension))
(the url-extensions))
(list url-base (the descriptive-url)))))
(remove nil (list url-base (ignore-errors (the descriptive-url)))))))
(respondent (the bashee) :defaulting)
;;(respondent (the bashee))
......@@ -384,16 +384,15 @@ values are set into the specified bashee."
(let ((url
(let ((escaped-strings-for-display (html-escape (the strings-for-display))))
(if (and (the parent) (typep (the parent) 'base-html-sheet))
(string-append (the parent descriptive-url-base)
"/"
escaped-strings-for-display)
(if (ignore-errors (and (the parent) (typep (the parent) 'base-html-sheet)))
(or (ignore-errors (string-append (the parent descriptive-url-base)
"/"
escaped-strings-for-display)) escaped-strings-for-display)
escaped-strings-for-display))))
(string-downcase url)))
;;
;; FLAG -- this can prolly go away.
;;
......
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