pref.mlt

   1 <% val you = Init.getUserId ();
   2 val yourname = Init.getUserName ();
   3 val youremail = yourname ^ "@hcoop.net";
   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
  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;
  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>
  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>
  37 <tr> <td><input type="submit" value="Save"></td> </tr>
  38 </table>
  39
  40 <% @footer[] %>