proper encode/decode of query strings
svn: r10116 original commit: 154595d4549988fa8458b2bbab9b76b563d5c749
This commit is contained in:
parent
443b54b695
commit
94276f98d2
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user