Moved files to private; new help-desk.ss

original commit: c2a637dafc1bcff2dc20eaaa35eaea9dfd1e44a1

collects/help/help.ss

@@ -3,8 +3,8 @@
 	   (lib "util.ss" "web-server")
 	   (lib "configuration.ss" "web-server")
 	   (lib "configuration-structures.ss" "web-server")
-	   (lib "server.ss" "help")
+	   "private/server.ss"
-	   (lib "browser.ss" "help"))	
+	   "private/browser.ss")
 
   (require (lib "exit.ss" "help" "servlets" "private"))
 

collects/help/private/search.ss

@@ -2,16 +2,28 @@
   (require (lib "string-constant.ss" "string-constants")
            "docpos.ss"
            "colldocs.ss"
+	   "server.ss"
+	   "browser.ss"
            (lib "list.ss")
 	   (lib "util.ss" "help" "servlets" "private")
-           (lib "server.ss" "help")
+	   (lib "specs.ss" "framework"))
-           (lib "browser.ss" "help"))
   
   (provide do-search
-           doc-collections-changed
+           doc-collections-changed)
-	   search-for-docs)
+
-  
+  (provide/contract 
-  ; hd-cookie string sym sym any -> void
+   (search-for-docs
+    (hd-cookie? string? 
+		(lambda (s) 
+		  (member s
+		   '("keyword" "keyword-index" "keyword-index-text")))
+		(lambda (s) 
+		  (member s
+		   '("exact-match" "containing-match" "regexp-match")))
+		any?
+		. -> . any?)))
+
+  ; hd-cookie string string string any -> void
   ; shows search result in default browser
   (define (search-for-docs cookie search-string search-type match-type lucky?)
     (let* ([port (hd-cookie->port cookie)]