566fd712 |
1 | <% val you = Init.getUserId (); |
56c0e176 |
2 | val yourname = Init.getUserName (); |
3 | val youremail = yourname ^ "@hcoop.net"; |
566fd712 |
4 | |
5 | @header [("title", ["Member preferences"])]; |
6 | |
7 | if $"cmd" = "mod" then |
8 | if $"dir" = "on" then |
9 | Pref.setDirectory you |
10 | else |
11 | Pref.unsetDirectory you |
56c0e176 |
12 | end; |
13 | |
14 | if not (iff $"discuss" = "on" then |
15 | Pref.subscribe ("hcoop-discuss", youremail) |
16 | else |
17 | Pref.unsubscribe ("hcoop-discuss", youremail)) then |
1fe415e0 |
18 | %><h3>Error setting <tt>hcoop-discuss</tt> status</h3><% |
56c0e176 |
19 | end; |
20 | |
21 | if not (iff $"misc" = "on" then |
22 | Pref.subscribe ("hcoop-misc", youremail) |
23 | else |
24 | Pref.unsubscribe ("hcoop-misc", youremail)) then |
1fe415e0 |
25 | %><h3>Error setting <tt>hcoop-misc</tt> status</h3><% |
56c0e176 |
26 | end; |
566fd712 |
27 | |
7c1a0a61 |
28 | if not (iff $"sysadmin" = "on" then |
29 | Pref.subscribe ("hcoop-sysadmin", youremail) |
30 | else |
31 | Pref.unsubscribe ("hcoop-sysadmin", youremail)) then |
32 | %><h3>Error setting <tt>hcoop-sysadmin</tt> status</h3><% |
33 | end; |
34 | |
1fe415e0 |
35 | %><h3>Preferences updated</h3><% |
566fd712 |
36 | end %> |
37 | |
add44c00 |
38 | <form action="pref" method="post"> |
566fd712 |
39 | <input type="hidden" name="cmd" value="mod"> |
1fe415e0 |
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> |
7c1a0a61 |
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> |
1fe415e0 |
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> |
566fd712 |
45 | <tr> <td><input type="submit" value="Save"></td> </tr> |
46 | </table> |
47 | |
48 | <% @footer[] %> |