From 3a8415e90287e779b79f979744cf0e17531aee9a Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 28 Jun 2010 09:04:24 -0600 Subject: [PATCH] Fixing PR11002 --- collects/web-server/private/configure.rkt | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/collects/web-server/private/configure.rkt b/collects/web-server/private/configure.rkt index d5a44ffc5f..9b4ff618d6 100644 --- a/collects/web-server/private/configure.rkt +++ b/collects/web-server/private/configure.rkt @@ -107,13 +107,7 @@ (send/finish access-error-page)) request) -(define web-base (directory-part default-configuration-path)) - -; 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"]))) +(define web-base (directory-part default-configuration-path))7 ; interact : (str -> response) -> bindings (define (interact page) @@ -160,7 +154,6 @@ (build-suspender '("Choose a Configuration File") `((h1 "Choose a Web Server Configuration File") - ,web-server-icon (p "Choose a Web server configuration file to edit. " (br) "This Web server uses the configuration in " @@ -307,7 +300,6 @@ (build-suspender '("Racket Web Server Configuration") `((h1 "Racket Web Server Configuration Management") - ,web-server-icon "copyright 2001 by Paul Graunke and PLT" (hr) (h2 "Basic Configuration")