X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/566fd71293b52f72e94433da590b14b4a06b07e2..1b8fe8b9a87a942799558078898feb0a0fe52a02:/pref.mlt?ds=sidebyside

diff --git a/pref.mlt b/pref.mlt
index f4ba6fb..e86826f 100644
--- a/pref.mlt
+++ b/pref.mlt
@@ -1,4 +1,6 @@
 <% val you = Init.getUserId ();
+val yourname = Init.getUserName ();
+val youremail = yourname ^ "@hcoop.net";
 
 @header [("title", ["Member preferences"])];
 
@@ -7,15 +9,39 @@ if $"cmd" = "mod" then
 		Pref.setDirectory you
 	else
 		Pref.unsetDirectory you
-	end
+	end;
 
-	%><h3><b>Preferences updated</b></h3><%
+	if not (iff $"discuss" = "on" then
+			Pref.subscribe ("hcoop-discuss", youremail)
+		    else
+			Pref.unsubscribe ("hcoop-discuss", youremail)) then
+		%><h3>Error setting <tt>hcoop-discuss</tt> status</h3><%
+	end;
+
+	if not (iff $"misc" = "on" then
+			Pref.subscribe ("hcoop-misc", youremail)
+		    else
+			Pref.unsubscribe ("hcoop-misc", youremail)) then
+		%><h3>Error setting <tt>hcoop-misc</tt> status</h3><%
+	end;
+
+	if not (iff $"sysadmin" = "on" then
+			Pref.subscribe ("hcoop-sysadmin", youremail)
+		    else
+			Pref.unsubscribe ("hcoop-sysadmin", youremail)) then
+		%><h3>Error setting <tt>hcoop-sysadmin</tt> status</h3><%
+	end;
+
+	%><h3>Preferences updated</h3><%
 end %>
 
-<form action="pref">
+<form action="pref" method="post">
 <input type="hidden" name="cmd" value="mod">
-<table>
-<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>
+<table class="blanks">
+<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="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>
 </table>