scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

URI escape address annotations

This commit is contained in:
mainzelm 2004-02-02 10:24:05 +00:00
parent ff5bca073d
commit b65323b81b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/httpd/surflets/addresses.scm
View File

@ -55,7 +55,7 @@
(<= (length annotation) 1)) (<= (length annotation) 1))
(let ((index (if (null? annotation) (let ((index (if (null? annotation)
(address-add-annotation! address "") (address-add-annotation! address "")
(address-add-annotation! address (car annotation))))) (address-add-annotation! address (escape-uri (car annotation))))))
(string-append message "?" (address-name address) (string-append message "?" (address-name address)
"=" index))) "=" index)))
((eq? message 'address) ((eq? message 'address)