Moved "Known Bugs", "License", and "Patches" into home.ss.

svn: r7205

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"]))
+       ((p "For an up-to-date list of bug reports, see the "
-           "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"]))
+       ((h2 "PLT Software") 
-        (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 "
@@ -452,8 +451,7 @@
        ((p "See " (a ([href ,url-helpdesk-srpersist]) "SrPersist") ".")))
       ;;
       ("patches" "Downloadable Patches"
-       ((p (a ([name "patches"] [value "Downloadable patches"]))
+       ((p "The following Web page may contain downloadable patches to fix "
-           "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"]))
+        (p "TeachScheme! is a free summer workshop for high school teachers. "
-           "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 "

collects/help/servlets/release/bugs.ss

@@ -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")) ".")))))

collects/help/servlets/release/license.ss

@@ -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")))))))))

collects/help/servlets/release/patches.ss

@@ -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))))))))