From b1cedcf7b4f48514d0efda50ca6ead11b55eb149 Mon Sep 17 00:00:00 2001 From: Jens Axel Soegaard Date: Tue, 28 Aug 2007 18:38:45 +0000 Subject: [PATCH] Moved "Known Bugs", "License", and "Patches" into home.ss. svn: r7205 --- collects/help/servlets/home.ss | 13 ++-- collects/help/servlets/release/bugs.ss | 20 ----- collects/help/servlets/release/license.ss | 93 ----------------------- collects/help/servlets/release/patches.ss | 23 ------ 4 files changed, 5 insertions(+), 144 deletions(-) delete mode 100644 collects/help/servlets/release/bugs.ss delete mode 100644 collects/help/servlets/release/license.ss delete mode 100644 collects/help/servlets/release/patches.ss diff --git a/collects/help/servlets/home.ss b/collects/help/servlets/home.ss index de673a4fe0..5e752e801c 100644 --- a/collects/help/servlets/home.ss +++ b/collects/help/servlets/home.ss @@ -196,6 +196,7 @@ (h3 "Teach Yourself Scheme in Fixnum Days") (p (a ((href, url-helpdesk-teach-yourself)) " Teach Yourself Scheme in Fixnum Days") (br) "- an introduction to Scheme by Dorai Sitaram"))) + ;; ("databases" "Databases" ((p "For ODBC databases see " (a ([href ,url-helpdesk-srpersist]) "SrPersist") ".") (p "For bindings to MySQL, SQLite, PostGreSQL, and more see " @@ -280,8 +281,7 @@ #;(li "The " (b "Send a bug report") " link allows you to submit a bug report to PLT.")))) ;; ("known-bugs" "Known Bugs" - ((p (a ([name "bugs"] [value "Bugs"])) - "For an up-to-date list of bug reports, see the " + ((p "For an up-to-date list of bug reports, see the " (a ([href "http://bugs.plt-scheme.org/query/"] [target "_top"]) "PLT bug report query page") "."))) ;; @@ -335,8 +335,7 @@ "Join the PLaneT announcement mailing list to get notified on new PLaneT packages."))) ;; ("license" "License" - ((a ([name "lic"] [value "License"])) - (b "PLT Software") (br) + ((h2 "PLT Software") (b ,(format "Copyright (c) ~a PLT Scheme Inc." copyright-year)) (p "PLT software is distributed under the GNU Library General Public " " License (LGPL). This means you can link PLT software (such as " @@ -452,8 +451,7 @@ ((p "See " (a ([href ,url-helpdesk-srpersist]) "SrPersist") "."))) ;; ("patches" "Downloadable Patches" - ((p (a ([name "patches"] [value "Downloadable patches"])) - "The following Web page may contain downloadable patches to fix " + ((p "The following Web page may contain downloadable patches to fix " "serious bugs in version " ,(version) " of the PLT software:") (p nbsp nbsp ,(let ([url (format "http://download.plt-scheme.org/patches/~a/" @@ -524,8 +522,7 @@ ;; ("teachscheme" "TeachScheme" ((h2 "TeachScheme! Workshops") - (p (a ([name "workshops"] [value "TeachScheme! workshops"])) - "TeachScheme! is a free summer workshop for high school teachers. " + (p "TeachScheme! is a free summer workshop for high school teachers. " "Its goal is to bridge the gulf between high school and " "college-level computing curricula. In the workshop, programming " "is taught as an algebraic problem-solving process, and computing " diff --git a/collects/help/servlets/release/bugs.ss b/collects/help/servlets/release/bugs.ss deleted file mode 100644 index aabb6ae486..0000000000 --- a/collects/help/servlets/release/bugs.ss +++ /dev/null @@ -1,20 +0,0 @@ -(module bugs mzscheme - (require (lib "string.ss") - "../private/util.ss" - "../private/headelts.ss" - (lib "servlet.ss" "web-server")) - (provide interface-version timeout start) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - (with-errors-to-browser - send/finish - (lambda () - `(html - (head ,hd-css ,@hd-links (title "Known Bugs")) - (body - (h1 "Known Bugs in PLT Scheme") - (a ([name "bugs"] [value "Bugs"])) - "For an up-to-date list of bug reports, see the " - (a ([href "http://bugs.plt-scheme.org/query/"] [target "_top"]) - "PLT bug report query page")) "."))))) \ No newline at end of file diff --git a/collects/help/servlets/release/license.ss b/collects/help/servlets/release/license.ss deleted file mode 100644 index efe73f1d7c..0000000000 --- a/collects/help/servlets/release/license.ss +++ /dev/null @@ -1,93 +0,0 @@ -(module license mzscheme - (require "../private/util.ss" - "../private/headelts.ss" - (lib "uri-codec.ss" "net") - (lib "dirs.ss" "setup") - (lib "servlet.ss" "web-server")) - (provide interface-version timeout start) - (define interface-version 'v1) - (define timeout +inf.0) - (define (make-item ss) - `(ul (li ,@(map (lambda (s) `(div ,s (br))) ss)))) - (define copyright-year 2007) - (define (start initial-request) - (with-errors-to-browser - send/finish - (lambda () - `(html - (head ,hd-css ,@hd-links (title "License")) - (body - (a ([name "lic"] [value "License"])) - (b "PLT Software") (br) - (b ,(format "Copyright (c) ~a PLT Scheme Inc." copyright-year)) - (p) - "PLT software is distributed under the GNU Library General Public " - " License (LGPL). This means you can link PLT software (such as " - "MzScheme or MrEd) into proprietary applications, provided you follow " - "the specific rules stated in the LGPL. You can also modify PLT " - "software; if you distribute a modified version, you must distribute it " - "under the terms of the LGPL, which in particular means that you must " - "release the source code for the modified software. See " - (a ([href ,(format "/servlets/doc-anchor.ss?~a&file=~a" - "name=COPYING.LIB&caption=Copying PLT software" - (uri-encode - (path->string - (simplify-path (build-path (find-doc-dir) - "release-notes" - "COPYING.LIB")))))]) - "COPYING.LIB") - " for more information." - (p) - "PLT software includes or extends the following copyrighted material:" - (p) - ,@(map - make-item - `(("DrScheme" - ,(format "Copyright (c) 1995-~a PLT" copyright-year) - ,(format "Copyright (c) 2004-~a PLT Scheme Inc." copyright-year) - "All rights reserved.") - ("MrEd" - ,(format "Copyright (c) 1995-~a PLT" copyright-year) - ,(format "Copyright (c) 2004-~a PLT Scheme Inc." copyright-year) - "All rights reserved.") - ("MzScheme" - ,(format "Copyright (c) 1995-~a PLT" copyright-year) - ,(format "Copyright (c) 2004-~a PLT Scheme Inc." copyright-year) - "All rights reserved.") - ("libscheme" - "Copyright (c) 1994 Brent Benson" - "All rights reserved.") - ("wxWindows" - "Copyright (c) 1994 Artificial Intelligence Applications Institute, The University of Edinburgh" - "All rights reserved.") - ("wxWindows Xt" - "Copyright (c) 1994 Artificial Intelligence Applications Institute, The University of Edinburgh" - "Copyright (c) 1995 GNU (Markus Holzem)" - "All rights reserved.") - ("Conservative garbage collector" - "Copyright (c) 1988, 1989 Hans-J. Boehm, Alan J. Demers" - "Copyright (c) 1991-1996 Xerox Corporation" - "Copyright (c) 1996-1999 Silicon Graphics" - "Copyright (c) 1999-2001 by Hewlett-Packard Company" - "All rights reserved.") - ("Collector C++ extension by Jesse Hull and John Ellis" - "Copyright (c) 1994 Xerox Corporation" - "All rights reserved.") - ("The A List" - "Copyright (c) 1997-2000 Kyle Hammond." - "All rights reserved.") - ("Independent JPEG Group library" - "Copyright (c) 1991-1998 Thomas G. Lane." - "All rights reserved.") - ("libpng" - "Copyright (c) 2000-2002 Glenn Randers-Pehrson" - "All rights reserved.") - ("zlib" - "Copyright (c) 1995-2002 Jean-loup Gailly and Mark Adler" - "All rights reserved.") - ("GNU MP Library" - "Copyright (c) 1992, 1993, 1994, 1996 by Free Software Foundation, Inc.") - ("GNU lightning" - "Copyright (c) 1994, 1995, 1996, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.") - ("GNU Classpath" - "GNU Public License with special exception"))))))))) \ No newline at end of file diff --git a/collects/help/servlets/release/patches.ss b/collects/help/servlets/release/patches.ss deleted file mode 100644 index 4bd02ee7a9..0000000000 --- a/collects/help/servlets/release/patches.ss +++ /dev/null @@ -1,23 +0,0 @@ -(module patches mzscheme - (require "../private/headelts.ss" - "../private/util.ss" - (lib "servlet.ss" "web-server")) - (provide interface-version timeout start) - (define interface-version 'v1) - (define timeout +inf.0) - (define (start initial-request) - (with-errors-to-browser - send/finish - (lambda () - `(html - (head ,hd-css ,@hd-links (title "Downloadable Patches")) - (body - (h1 "Downloadable Patches") - (a ([name "patches"] [value "Downloadable patches"])) - "The following Web page may contain downloadable patches to fix " - "serious bugs in version " ,(version) " of the PLT software:" - (p) - nbsp nbsp - ,(let ([url (format "http://download.plt-scheme.org/patches/~a/" - (version))]) - `(a ([href ,url] [target "_top"]) ,url)))))))) \ No newline at end of file