suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing PR11002

Browse Source
This commit is contained in:
Jay McCarthy 2010-06-28 09:04:24 -06:00
parent 23553392df
commit 3a8415e902
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/web-server/private/configure.rkt
View File

@ -107,13 +107,7 @@
(send/finish access-error-page)) (send/finish access-error-page))
request) request)
(define web-base (directory-part default-configuration-path)) (define web-base (directory-part default-configuration-path))7
; more here - abstract with static pages?
(define web-server-icon
`(img ([src ,(string-append "/" doc-dir "/web-server.gif")]
;[width "123"] [height "115"]
[width "61"] [height "57"])))
; interact : (str -> response) -> bindings ; interact : (str -> response) -> bindings
(define (interact page) (define (interact page)
@ -160,7 +154,6 @@
(build-suspender (build-suspender
'("Choose a Configuration File") '("Choose a Configuration File")
`((h1 "Choose a Web Server Configuration File") `((h1 "Choose a Web Server Configuration File")
,web-server-icon
(p "Choose a Web server configuration file to edit. " (p "Choose a Web server configuration file to edit. "
(br) (br)
"This Web server uses the configuration in " "This Web server uses the configuration in "
@ -307,7 +300,6 @@
(build-suspender (build-suspender
'("Racket Web Server Configuration") '("Racket Web Server Configuration")
`((h1 "Racket Web Server Configuration Management") `((h1 "Racket Web Server Configuration Management")
,web-server-icon
"copyright 2001 by Paul Graunke and PLT" "copyright 2001 by Paul Graunke and PLT"
(hr) (hr)
(h2 "Basic Configuration") (h2 "Basic Configuration")