From f2935281550e4daddcfb7c473232bf0861df8c56 Mon Sep 17 00:00:00 2001 From: Jens Axel Soegaard Date: Fri, 14 Sep 2007 19:14:46 +0000 Subject: [PATCH] Inserted search string in page title for search results as requested in PR8922. svn: r7336 --- collects/help/servlets/results.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/help/servlets/results.ss b/collects/help/servlets/results.ss index cc944915f0..1386e8caa0 100644 --- a/collects/help/servlets/results.ss +++ b/collects/help/servlets/results.ss @@ -64,7 +64,7 @@ is stored in a module top-level and that's namespace-specific. [html-for-top (case (helpdesk-platform) [(internal-browser) '()] [(internal-browser-simple) '()] - [else (html-top request)])]) + [else (html-top request)])]) ;; doc subcollection name -> boolean (define (search-type->search-level st) (let loop ([n 0] [lst (map car search-types)]) @@ -229,7 +229,7 @@ is stored in a module top-level and that's namespace-specific. (let-values ([(string-finds finds) (build-string-finds/finds search-string regexp? exact?)]) (html-page - #:title "PLT Help Desk search results" + #:title (format "PLT Scheme HelpDesk: ~a" search-string) #:top html-for-top #:bodies `((h1 "Search Results") @@ -310,7 +310,7 @@ is stored in a module top-level and that's namespace-specific. (cond [flush (doc-collections-changed) - (html-page #:title "flush" + (html-page #:title "Flushed documentation cache" #:top (html-top initial-request) #:body '(h2 "Flushed documentation cache"))] [else