Reports for figuring out which accounts to freeze or boot; most of new SSL request...

[bpt/portal.git] / pref.mlt

diff --git a/pref.mlt b/pref.mlt
index deea051..a18fd93 100644 (file)
--- a/pref.mlt
+++ b/pref.mlt
@@ -25,6 +25,13 @@ if $"cmd" = "mod" then
                %><h3>Error setting <tt>hcoop-discuss</tt> status</h3><%
        end;
 
+       if not (iff $"help" = "on" then
+                       Pref.subscribe ("hcoop-help", youremail)
+                   else
+                       Pref.unsubscribe ("hcoop-help", youremail)) then
+               %><h3>Error setting <tt>hcoop-help</tt> status</h3><%
+       end;
+
        if not (iff $"misc" = "on" then
                        Pref.subscribe ("hcoop-misc", youremail)
                    else
@@ -44,8 +51,6 @@ end;
 
 val you_all = Init.lookupUser you %>
 
-<p><h3>The mailing list checkboxes on this page don't work yet.  You should visit <a href="https://members.hcoop.net/portal/pref">the corresponding page on the old portal</a> if you want to change subscriptions.</h3></p>
-
 <form action="pref" method="post">
 <input type="hidden" name="cmd" value="mod">
 <table class="blanks">
@@ -55,6 +60,7 @@ val you_all = Init.lookupUser you %>
 <tr></tr>
 <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="help"<% if Pref.subscribed ("hcoop-help", youremail) then %> checked<% end %>></td> <td>Include me on the <tt>hcoop-help</tt> mailing list. <i>(Members-helping-members support on how to use HCoop services)</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>