From fefd099f63bd738ce90d21434f0633dc47e07186 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 6 Jun 2005 23:23:22 +0000 Subject: [PATCH] fixed doc location to pre.plt-scheme.org svn: r64 --- collects/help/private/standard-urls.ss | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) diff --git a/collects/help/private/standard-urls.ss b/collects/help/private/standard-urls.ss index 4d330edb7f..9220a0e0a6 100644 --- a/collects/help/private/standard-urls.ss +++ b/collects/help/private/standard-urls.ss @@ -37,20 +37,17 @@ [make-docs-plt-url (string? . -> . string?)] [make-docs-html-url (string? . -> . string?)]) + (define (base-docs-url) + (if (repos-or-nightly-build?) + "http://pre.plt-scheme.org/docs" + (string-append "http://download.plt-scheme.org/doc/" (version)))) + (define (make-docs-plt-url manual-name) - (format "http://download.plt-scheme.org/doc/~a/bundles/~a-doc.plt" - (if (repos-or-nightly-build?) - "pre-release" - (version)) - manual-name)) - + (format "~a/bundles/~a-doc.plt" (base-docs-url) manual-name)) + (define (make-docs-html-url manual-name) - (format "http://download.plt-scheme.org/doc/~a/html/~a/index.htm" - (if (repos-or-nightly-build?) - "pre-release" - (version)) - manual-name)) - + (format "~a/html/~a/index.htm" (base-docs-url) manual-name)) + (define (prefix-with-server cookie suffix) (format "http://~a:~a~a" internal-host internal-port suffix))