From 2f676a3df7162a0e407122c53324d265e9f92235 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 24 May 2007 21:02:26 +0000
Subject: [PATCH] Normalizing names

svn: r6280
---
 .../prototype-web-server/servlets/add02.ss    |  2 +-
 .../prototype-web-server/servlets/add03.ss    |  2 +-
 .../prototype-web-server/servlets/add05.ss    | 20 +------------------
 .../servlets/check-dir.ss                     |  2 +-
 .../prototype-web-server/servlets/quiz-lib.ss |  5 +----
 5 files changed, 5 insertions(+), 26 deletions(-)

diff --git a/collects/web-server/prototype-web-server/servlets/add02.ss b/collects/web-server/prototype-web-server/servlets/add02.ss
index 2fcff81f46..1946dcd2e7 100644
--- a/collects/web-server/prototype-web-server/servlets/add02.ss
+++ b/collects/web-server/prototype-web-server/servlets/add02.ss
@@ -1,4 +1,4 @@
-(module add02 "../web-interaction.ss"
+(module add02 (lib "web-interaction.ss" "web-server" "prototype-web-server")
   (require (lib "url.ss" "net")
            (lib "request.ss" "web-server" "private")
            (lib "request-structs.ss" "web-server"))
diff --git a/collects/web-server/prototype-web-server/servlets/add03.ss b/collects/web-server/prototype-web-server/servlets/add03.ss
index 9d3369ec75..5457699399 100644
--- a/collects/web-server/prototype-web-server/servlets/add03.ss
+++ b/collects/web-server/prototype-web-server/servlets/add03.ss
@@ -1,4 +1,4 @@
-(module add03 "../persistent-web-interaction.ss"
+(module add03 (lib "persistent-web-interaction.ss" "web-server" "prototype-web-server")
   (require (lib "url.ss" "net")
            (lib "servlet-helpers.ss" "web-server" "private")
            (lib "request-structs.ss" "web-server"))
diff --git a/collects/web-server/prototype-web-server/servlets/add05.ss b/collects/web-server/prototype-web-server/servlets/add05.ss
index b11abbd531..64072a5f8f 100644
--- a/collects/web-server/prototype-web-server/servlets/add05.ss
+++ b/collects/web-server/prototype-web-server/servlets/add05.ss
@@ -22,25 +22,7 @@
                        [enctype "application/x-www-form-urlencoded"])
                       ,(format "Enter the ~a number to add: " msg)
                       (input ([type "text"] [name "number"] [value ""]))
-                      (input ([type "submit"])))))))))
-  
-  #;(define (gn msg)
-    (send/suspend/dispatch
-     (lambda (embed/url)
-       `(hmtl (head (title ,(format "Get ~a number" msg)))
-              (body
-               (form ([action ,(url->string 
-                                (embed/url
-                                 (lambda (req)
-                                   (string->number
-                                    (extract-binding/single
-                                     'number
-                                     (request-bindings req))))))]
-                      [method "post"]
-                      [enctype "application/x-www-form-urlencoded"])
-                     ,(format "Enter the ~a number to add: " msg)
-                     (input ([type "text"] [name "number"] [value ""]))
-                     (input ([type "submit"]))))))))
+                      (input ([type "submit"])))))))))  
   
   (let ([initial-request (start-servlet)])
     `(html (head (title "Final Page"))
diff --git a/collects/web-server/prototype-web-server/servlets/check-dir.ss b/collects/web-server/prototype-web-server/servlets/check-dir.ss
index 6d95dc623d..e23241e1ed 100644
--- a/collects/web-server/prototype-web-server/servlets/check-dir.ss
+++ b/collects/web-server/prototype-web-server/servlets/check-dir.ss
@@ -1,4 +1,4 @@
-(module check-dir "../web-interaction.ss"
+(module check-dir (lib "web-interaction.ss" "web-server" "prototype-web-server")
   (require (lib "url.ss" "net"))
   
   (define (directory-page n)
diff --git a/collects/web-server/prototype-web-server/servlets/quiz-lib.ss b/collects/web-server/prototype-web-server/servlets/quiz-lib.ss
index 56628c107b..4b04221270 100644
--- a/collects/web-server/prototype-web-server/servlets/quiz-lib.ss
+++ b/collects/web-server/prototype-web-server/servlets/quiz-lib.ss
@@ -83,7 +83,4 @@
        "angular momentum"
        "sex")
       0)
-     ))
-  
-  
-  )
+     )))
\ No newline at end of file