forked from cadence/breezewiki
bb
This commit is contained in:
parent
fe87ff26c5
commit
8b8a9c5e09
1 changed files with 13 additions and 13 deletions
|
@ -93,7 +93,7 @@
|
||||||
(if (not (jp "/exists" media-detail #f))
|
(if (not (jp "/exists" media-detail #f))
|
||||||
(next-dispatcher)
|
(next-dispatcher)
|
||||||
(response-handler
|
(response-handler
|
||||||
(define title (jp "/fileTitle" media-detail)))
|
(define title (jp "/fileTitle" media-detail))
|
||||||
(define body (generate-results-page
|
(define body (generate-results-page
|
||||||
#:source-url source-url
|
#:source-url source-url
|
||||||
#:wikiname wikiname
|
#:wikiname wikiname
|
||||||
|
@ -108,7 +108,7 @@
|
||||||
(response/output
|
(response/output
|
||||||
#:code 200
|
#:code 200
|
||||||
(λ (out)
|
(λ (out)
|
||||||
(write-html body out)))))
|
(write-html body out))))))
|
||||||
;(module+ test
|
;(module+ test
|
||||||
; (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
|
; (check-not-false ((query-selector (attribute-selector 'href "/test/wiki/Ankle_Monitor")
|
||||||
; (generate-results-page
|
; (generate-results-page
|
||||||
|
|
Loading…
Reference in a new issue