bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 94276f98d27f221fed209201f9a462613f0777b7
parent 443b54b6959bbb19877856d0741ca425ac391375
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Wed,  4 Jun 2008 00:58:07 +0000

proper encode/decode of query strings

svn: r10116

original commit: 154595d4549988fa8458b2bbab9b76b563d5c749

Diffstat:
M
collects/help/search.ss
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/collects/help/search.ss b/collects/help/search.ss
@@ -1,6 +1,6 @@
 #lang scheme/base
 
-(require setup/dirs net/sendurl)
+(require setup/dirs net/sendurl net/uri-codec)
 (provide perform-search send-main-page)
 
 (define search-page "search/index.html")
@@ -15,4 +15,4 @@
     (send-url/file path #:fragment fragment #:query query)))
 
 (define (perform-search str)
-  (send-main-page #:sub search-page #:query (format "q=~a" str)))
+  (send-main-page #:sub search-page #:query (format "q=~a" (uri-encode str))))