search-context has the proper suffix now
svn: r10953
This commit is contained in:
parent
f6912b7439
commit
f30efeb8c3
|
@ -23,7 +23,7 @@
|
|||
;; search page is refreshed it won't reset the context).
|
||||
(let* ([label (and (list? context) (= 2 (length context)) (cadr context))]
|
||||
[context (if (pair? context) (car context) context)]
|
||||
[page (if context "search-context.htm" "index.html")]
|
||||
[page (if context "search-context.html" "index.html")]
|
||||
[query (format "q=~a" (uri-encode str))]
|
||||
[query (if context
|
||||
(format "~a&hq=~a~a"
|
||||
|
|
Loading…
Reference in New Issue
Block a user