Normalizing names

svn: r6280

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"))

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"))

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"))

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)

collects/web-server/prototype-web-server/servlets/quiz-lib.ss

@@ -83,7 +83,4 @@
        "angular momentum"
        "sex")
       0)
-     ))
-  
-  
-  )
+     )))