fixed PR 8364

svn: r4735
This commit is contained in:
Robby Findler 2006-11-01 18:40:08 +00:00
parent 1905669a5b
commit 808ef37fef

View File

@ -150,7 +150,9 @@
(format "<A HREF=\"/servlets/doc-anchor.ss?file=~a&name=~a&caption=Documentation for the ~a collection\">~a collection</A>" (format "<A HREF=\"/servlets/doc-anchor.ss?file=~a&name=~a&caption=Documentation for the ~a collection\">~a collection</A>"
;; escape colons and other junk ;; escape colons and other junk
(uri-encode (path->string path)) (uri-encode (path->string path))
name name name) (uri-encode name)
(uri-encode name)
name)
(format "<FONT COLOR=\"RED\">~a collection: specified doc.txt file (~a) not found</FONT>" (format "<FONT COLOR=\"RED\">~a collection: specified doc.txt file (~a) not found</FONT>"
name path))))) name path)))))
collections-doc-files collections-doc-files