1 <% val you = Init.getUserId ();
2 val yourname = Init.getUserName ();
3 val youremail = yourname ^ "@hcoop.net";
5 @header [("title", ["Member preferences"])];
11 Pref.unsetDirectory you
14 if not (iff $"discuss" = "on" then
15 Pref.subscribe ("hcoop-discuss", youremail)
17 Pref.unsubscribe ("hcoop-discuss", youremail)) then
18 %><h3>Error setting <tt>hcoop-discuss</tt> status</h3><%
21 if not (iff $"misc" = "on" then
22 Pref.subscribe ("hcoop-misc", youremail)
24 Pref.unsubscribe ("hcoop-misc", youremail)) then
25 %><h3>Error setting <tt>hcoop-misc</tt> status</h3><%
28 if not (iff $"sysadmin" = "on" then
29 Pref.subscribe ("hcoop-sysadmin", youremail)
31 Pref.unsubscribe ("hcoop-sysadmin", youremail)) then
32 %><h3>Error setting <tt>hcoop-sysadmin</tt> status</h3><%
35 %><h3>Preferences updated</h3><%
38 <form action="pref" method="post">
39 <input type="hidden" name="cmd" value="mod">
40 <table class="blanks">
41 <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>
42 <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>
43 <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>
44 <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>
45 <tr> <td><input type="submit" value="Save"></td> </tr>