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
|
#lang scheme/base
|
||||||
|
|
||||||
(require setup/dirs net/sendurl)
|
(require setup/dirs net/sendurl net/uri-codec)
|
||||||
(provide perform-search send-main-page)
|
(provide perform-search send-main-page)
|
||||||
|
|
||||||
(define search-page "search/index.html")
|
(define search-page "search/index.html")
|
||||||
|
@ -15,4 +15,4 @@
|
||||||
(send-url/file path #:fragment fragment #:query query)))
|
(send-url/file path #:fragment fragment #:query query)))
|
||||||
|
|
||||||
(define (perform-search str)
|
(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