proper encode/decode of query strings

svn: r10116

original commit: 154595d4549988fa8458b2bbab9b76b563d5c749
This commit is contained in:
Eli Barzilay 2008-06-04 00:58:07 +00:00
parent 443b54b695
commit 94276f98d2

View File

@ -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))))