From 94276f98d27f221fed209201f9a462613f0777b7 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 4 Jun 2008 00:58:07 +0000 Subject: [PATCH] proper encode/decode of query strings svn: r10116 original commit: 154595d4549988fa8458b2bbab9b76b563d5c749 --- collects/help/search.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/help/search.ss b/collects/help/search.ss index 937ec5f9..56a0299f 100644 --- 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))))