Moved pages on "Mailing Lists" and "TeachScheme" into home.ss.

Simplified the "Mailing Lists" page.
Deleted the now obsolete resources folder.

svn: r7204

collects/help/servlets/home.ss

@@ -522,7 +522,7 @@
             (li (a ((href ,url-helpdesk-teachpacks-for-htdc))
                    "Teachpacks for 'How to Design Classes'")))))
       ;;
-      ("teachscheme" "Teach Scheme"
+      ("teachscheme" "TeachScheme"
        ((h2  "TeachScheme! Workshops")
         (p (a ([name "workshops"] [value "TeachScheme! workshops"]))
            "TeachScheme! is a free summer workshop for high school teachers. "

collects/help/servlets/resources/info.ss

@@ -1,2 +0,0 @@
-(module info (lib "infotab.ss" "setup")
-  (define name "Help Servlets Resources"))

collects/help/servlets/resources/maillist.ss

@@ -1,84 +0,0 @@
-(module maillist mzscheme
-  (require "../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 "Mailing Lists"))
-      (body
-       (a ([name "mail"] [value "mailing lists"]))
-       (h1 "Mailing Lists")
-       "PLT maintains two English-language mailing lists: one for"
-       " announcements, the other for discussion.  There is a discussion list"
-       " in Spanish."
-       (p)
-       (hr)
-       (p)
-       (b "Announcements List") (br)
-       "The announcement-only list is designed for people who need to track"
-       " releases and patches.  The list is moderated.  There are a handful"
-       " of postings a year."
-       (p)
-       "To subscribe to " (tt "plt-announce@list.cs.brown.edu") ", visit the "
-       "Web page "
-       (blockquote
-        (a ([href "http://list.cs.brown.edu/mailman/listinfo/plt-announce/"]
-            [target "_top"])
-           "http://list.cs.brown.edu/mailman/listinfo/plt-announce/"))
-       " or send email to "
-       (blockquote
-        (a ([href "mailto:plt-announce-request@list.cs.brown.edu"])
-           "plt-announce-request@list.cs.brown.edu"))
-       " with the word `help' in the subject or body of the message."
-       " You'll get back a message with instructions."
-       (p)
-       (hr)
-       (p)
-       (b "Discussion List") (br)
-       "If you have problems with installation, or questions about "
-       "using PLT Scheme, send mail to the list "
-       (blockquote
-        (a ([href "mailto:plt-scheme@list.cs.brown.edu"])
-           "plt-scheme@list.cs.brown.edu"))
-       (p)
-       "Only subscribers can post to the list."
-       " To subscribe, visit the Web page "
-       (blockquote
-        (a ([href "http://list.cs.brown.edu/mailman/listinfo/plt-scheme/"]
-            [target "_top"])
-           "http://list.cs.brown.edu/mailman/listinfo/plt-scheme/"))
-       " or send email to "
-       (blockquote
-        (a ((href "mailto:plt-scheme-request@list.cs.brown.edu"))
-           "plt-scheme-request@list.cs.brown.edu"))
-       " with the word `help' in the subject or body of the message. "
-       "You'll get back a message with instructions."
-       (p)
-       (hr)
-       (p)
-       (a ([name "mail-es"] [value "Spanish mailing lists"]))
-       (a ([name "mail-es2"] [value "Lista de Correo"]))
-       (b "Lista de Correo") (br)
-       "Si tienes problemas con la instalación o preguntas sobre el uso"
-       " de PLT Scheme, envía un mensaje a la lista "
-       (blockquote
-        (a ([href "mailto:plt-scheme-es@list.cs.brown.edu"])
-           "plt-scheme-es@list.cs.brown.edu"))
-       "Para reducir la recepción de mensajes no deseados (SPAM), "
-       "hemos adoptado la política de que sólo los suscriptores a la lista "
-       "pueden enviar mensajes. Para suscribirte, visita la página de Web "
-       (blockquote
-        (a ([href "http://list.cs.brown.edu/mailman/listinfo/plt-scheme-es/"]
-            [target "_top"])
-           "http://list.cs.brown.edu/mailman/listinfo/plt-scheme-es/"))
-       " o envía un mensaje a "
-       (blockquote
-        (a ([href "mailto:plt-scheme-es-request@list.cs.brown.edu"])
-           "plt-scheme-es-request@list.cs.brown.edu"))
-       " con la palabra `help' en el asunto o en el cuerpo de tu mensaje. "
-       "Recibirás un mensaje de regreso con instrucciones."))))))

collects/help/servlets/resources/teachscheme.ss

@@ -1,33 +0,0 @@
-(module teachscheme mzscheme
-  (require "../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 "TeachScheme! Workshops"))
-      (body
-       (h1  "TeachScheme! Workshops")
-       (a ([name "workshops"] [value "TeachScheme! workshops"]))
-       "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 "
-       "is the natural generalization of grade-school level calculating." 
-       (p)
-       "Students who learn to design programs properly learn to "
-       "analyze a problem statement; express its essence, abstractly "
-       "and with examples; formulate statements and comments in a "
-       "precise language; evaluate and revise these activities in "
-       "light of checks and tests; and pay attention to details. "
-       "As a result, all students benefit, those who wish to study computing "
-       "as well as those who just wish to explore the subject."
-       (p)
-       "For more information, see the "
-       (a ([href "http://www.teach-scheme.org/Workshops/"]
-           [TARGET "_top"])
-          "TeachScheme! Workshops page") "."))))))