No need to change anything when using the new launcher

svn: r7170

collects/help/help-desk.ss

@@ -1,7 +1,7 @@
 (module help-desk mzscheme
   (require 
    "bug-report.ss" ;; this is require'd here to get the prefs defaults setup done early.
-   "servlets/private/platform.ss" ;; same reason
+   "private/platform.ss" ;; same reason
    
    "private/manuals.ss"
    "private/buginfo.ss"

collects/help/launch.ss

@@ -21,16 +21,18 @@
 (require (lib "web-server.ss" "web-server")
          (lib "web-config-unit.ss" "web-server")
          "private/config.ss"
-         "private/internal-hp.ss")
+         "private/internal-hp.ss"
+         "private/platform.ss")
+
+(current-helpdesk-platform 'external-browser)
 
 ;; start the HelpDesk server, and store a shutdown
 (define shutdown
   (serve/web-config@ config))
 
-(printf "Did you remember to change `current-helpdesk-platform' in \"platform.ss\"?\n\n")
+(printf "\nStart here: http://~a:~a/servlets/home.ss\n\n"
-(printf "Start here: http://~a:~a/servlets/home.ss\n\n"
         internal-host internal-port)
 
-(format "Press enter to shutdown.\n")
+(printf "Press enter to shutdown.\n")
 (read-line)
 ;(shutdown)

collects/help/private/config.ss

@@ -3,7 +3,8 @@
            (lib "web-config-unit.ss" "web-server")
 	   (lib "dirs.ss" "setup")
            (lib "config.ss" "planet")
-           "internal-hp.ss")
+           "internal-hp.ss"
+           (lib "namespace.ss" "web-server" "configuration"))
   
   (provide config)
   
@@ -54,4 +55,8 @@
 	       `(,virtual-host 
 		 ,(make-host-config dir)))
 	     (cons planet-host (append doc-hosts collects-hosts))
-	     (cons (PLANET-DIR) (append doc-dirs collects-dirs)))))))))
+	     (cons (PLANET-DIR) (append doc-dirs collects-dirs)))))
+       #:make-servlet-namespace
+       (make-make-servlet-namespace
+        #:to-be-copied-module-specs
+        '((lib "platform.ss" "help" "private")))))))

collects/help/servlets/home.ss

@@ -10,7 +10,7 @@
            "private/url.ss"
            "private/html.ss"
            "private/split-screen.ss"
-           "private/platform.ss")
+           "../private/platform.ss")
   
   (define copyright-year 2007)
   

collects/help/servlets/private/split-screen.ss

@@ -3,7 +3,7 @@
            (only (lib "misc.ss" "swindle")  mappend)
            "html.ss"
            "url.ss"
-           "platform.ss")
+           "../../private/platform.ss")
   
   ; These items are common to all split screens
   

collects/help/servlets/results.ss

@@ -21,7 +21,7 @@ is stored in a module top-level and that's namespace-specific.
            "private/util.ss"
            "private/search-util.ss"
            "private/html.ss"
-           "private/platform.ss")
+           "../private/platform.ss")
   (provide interface-version timeout start)
   (define interface-version 'v1)
   (define timeout +inf.0)

collects/help/servlets/static.ss

@@ -12,7 +12,7 @@
            (lib "port.ss")
            "../private/standard-urls.ss"
            "../private/docpos.ss"
-           "private/platform.ss"
+           "../private/platform.ss"
            "private/html.ss")
   
   (provide interface-version timeout start)