Added online help for MailHost.

575f77b5 · Amos Latteier · cfa136b5 · 575f77b5 · 575f77b5
Commit 575f77b5 authored Jan 10, 2000 by Amos Latteier
Showing with 9 additions and 5 deletions

lib/python/Products/MailHost/MailHost.py lib/python/Products/MailHost/MailHost.py +7 -5

lib/python/Products/MailHost/addMailHost_form.dtml lib/python/Products/MailHost/addMailHost_form.dtml +2 -0

No files found.
--- a/lib/python/Products/MailHost/MailHost.py
+++ b/lib/python/Products/MailHost/MailHost.py
@@ -93,8 +93,8 @@ import OFS.SimpleItem, re, quopri, rfc822
 import Globals
 from cStringIO import StringIO

-#$Id: MailHost.py,v 1.45 1999/11/03 14:42:15 brian Exp $ 
-__version__ = "$Revision: 1.45 $"[11:-2]
+#$Id: MailHost.py,v 1.46 2000/01/10 23:48:36 amos Exp $ 
+__version__ = "$Revision: 1.46 $"[11:-2]
 smtpError = "SMTP Error"
 MailHostError = "MailHost Error"

@@ -121,9 +121,11 @@ class MailBase(Acquisition.Implicit, OFS.SimpleItem.Item, RoleManager):
    timeout=1.0

    manage_options=({'icon':'', 'label':'Edit',
-                     'action':'manage_main', 'target':'manage_main'},
+                     'action':'manage_main', 'target':'manage_main',
+                     'help':('MailHost','Mail-Host_Edit.dtml')}, 
                    {'icon':'', 'label':'Security',
-                     'action':'manage_access', 'target':'manage_main'},
+                     'action':'manage_access', 'target':'manage_main',
+                     'help':('MailHost','Mail-Host_Security.dtml')},
                   )

    __ac_permissions__=(
@@ -338,7 +340,7 @@ def decapitate(message):
    hd['to']=[]
    for header in (mo.getaddrlist('to'),
                   mo.getaddrlist('cc'),
-		   mo.getaddrlist('bcc')):
+                   mo.getaddrlist('bcc')):
        if not header: continue
        for name, addr in header:
            hd['to'].append(addr)

--- a/lib/python/Products/MailHost/addMailHost_form.dtml
+++ b/lib/python/Products/MailHost/addMailHost_form.dtml
@@ -7,6 +7,8 @@
 <BODY BGCOLOR="#FFFFFF">
 <H2>Add MailHost</H2>

+<dtml-var "HelpSys.HelpButton('Mail-Host_Add.dtml', 'MailHost')">
+
 <P>
 A Mail Host allows Zope to send email.
 </P>