| 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 |
| 18 | %><h3><b>Error setting <tt>hcoop-discuss</tt> status</b></h3><% |
| 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 |
| 25 | %><h3><b>Error setting <tt>hcoop-misc</tt> status</b></h3><% |
| 26 | end; |
| 566fd712 |
27 | |
| 28 | %><h3><b>Preferences updated</b></h3><% |
| 29 | end %> |
| 30 | |
| 31 | <form action="pref"> |
| 32 | <input type="hidden" name="cmd" value="mod"> |
| 33 | <table> |
| 56c0e176 |
34 | <tr> <td align="right"><input type="checkbox" name="dir"<% if Pref.hasDirectory you then %> checked<% end %>></td> <td>Include me in the public member directory.</td> </tr> |
| 35 | <tr> <td align="right"><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> |
| 36 | <tr> <td align="right"><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 |
37 | <tr> <td><input type="submit" value="Save"></td> </tr> |
| 38 | </table> |
| 39 | |
| 40 | <% @footer[] %> |
HCoop / hcoop / zz_old / portal.git / blame