hcoop-sysadmin list subscription

diff --git a/mailman/portalsub.sml b/mailman/portalsub.sml
index 562a74b..43ec1bc 100644 (file)
--- a/mailman/portalsub.sml
+++ b/mailman/portalsub.sml
@@ -29,7 +29,7 @@ fun validEmail s =
 fun main () =
     case CommandLine.arguments () of
        [list, cmd, addr] =>
-       if list <> "hcoop-discuss" andalso list <> "hcoop-misc" andalso list <> "hcoop-announce" then
+       if list <> "hcoop-discuss" andalso list <> "hcoop-misc" andalso list <> "hcoop-announce" andalso list <> "hcoop-sysadmin" then
            (print "Bad mailing list name\n";
             OS.Process.failure)
        else if not (validEmail addr) then
@@ -59,4 +59,4 @@ fun main () =
       | _ => (print "Bad command-line arguments\n";
              OS.Process.failure)
 
-val _ = OS.Process.exit (main ())
\ No newline at end of file
+val _ = OS.Process.exit (main ())

diff --git a/poll.mlt b/poll.mlt
index a0305d9..505044f 100644 (file)
--- a/poll.mlt
+++ b/poll.mlt
@@ -221,7 +221,7 @@ elseif $"delChoice" <> "" then
 <table class="blanks">
 <tr> <td>Poll#</b>:</td> <td><% id %></td> </tr>
 <tr> <td>Title</b>:</td> <td><% Web.html (#title poll) %></td> </tr>
-<tr> <td>Start>:</td> <td><% Web.html (#starts poll) %></td> </tr>
+<tr> <td>Start:</td> <td><% Web.html (#starts poll) %></td> </tr>
 <tr> <td>End:</td> <td><% Web.html (#ends poll) %></td> </tr>
 <tr> <td>Votes/person:</td> <td><% #votes poll %></td> </tr>
 <tr> <td>Description:</td> <td><% Web.htmlNl (#descr poll) %></td> </tr>

diff --git a/pref.mlt b/pref.mlt
index 6c973cf..e86826f 100644 (file)
--- a/pref.mlt
+++ b/pref.mlt
@@ -25,6 +25,13 @@ if $"cmd" = "mod" then
                %><h3>Error setting <tt>hcoop-misc</tt> status</h3><%
        end;
 
+       if not (iff $"sysadmin" = "on" then
+                       Pref.subscribe ("hcoop-sysadmin", youremail)
+                   else
+                       Pref.unsubscribe ("hcoop-sysadmin", youremail)) then
+               %><h3>Error setting <tt>hcoop-sysadmin</tt> status</h3><%
+       end;
+
        %><h3>Preferences updated</h3><%
 end %>
 
@@ -33,6 +40,7 @@ end %>
 <table class="blanks">
 <tr> <td><input type="checkbox" name="dir"<% if Pref.hasDirectory you then %> checked<% end %>></td> <td>Include me in the public member directory.</td> </tr>
 <tr> <td><input type="checkbox" name="discuss"<% if Pref.subscribed ("hcoop-discuss", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-discuss</tt> mailing list. <i>(On-topic discussion and sporadically high volume)</i></td> </tr>
+<tr> <td><input type="checkbox" name="sysadmin"<% if Pref.subscribed ("hcoop-sysadmin", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-sysadmin</tt> mailing list. <i>(Discussion about technical adminstrative planning and related issues, not dealing directly with member support requests)</i></td> </tr>
 <tr> <td><input type="checkbox" name="misc"<% if Pref.subscribed ("hcoop-misc", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-misc</tt> mailing list. <i>(Off-topic)</i></td> </tr>
 <tr> <td><input type="submit" value="Save"></td> </tr>
 </table>