X-Git-Url: http://git.hcoop.net/bpt/portal.git/blobdiff_plain/59eb5381735d29cc1e985cf8bc8a328640fede44..a483e18c6bb5943a39a3bd67abe4d9a0adfcf76a:/users.mlt
diff --git a/users.mlt b/users.mlt
index 1cd37f0..6a6dfc8 100644
--- a/users.mlt
+++ b/users.mlt
@@ -31,8 +31,13 @@ if $"cmd" = "Create" then
if not (Pref.subscribe ("hcoop-announce", $"name" ^ Init.emailSuffix)) then
%>
Error subscribing to hcoop-announce
<%
end
- end %>
- Member added
+ end;
+
+ if $"nomail" = "" then
+ App.welcome ap
+ end
+
+ %>Member added
<% end
end
elseif $"mod" <> "" then
@@ -70,7 +75,24 @@ elseif $"mod" <> "" then
Init.deleteUser (Web.stoi ($"del2")) %>
<% #name user %> deleted!
-<% elseif $"cmd" = "grandfather" then
+<% elseif $"retire" <> "" then
+ showNormal := false;
+ val user = Init.lookupUser (Web.stoi ($"retire")) %>
+ Are you sure you want to retire member <% #name user %>?
+ ">Yes, retire <% #name user %>!
+
+<% elseif $"retire2" <> "" then
+ val usr = Web.stoi ($"retire2");
+ val user = Init.lookupUser usr;
+ switch (Group.groupNameToId "paying", Group.groupNameToId "retired") of
+ (SOME paying, SOME retired) =>
+ Group.removeFromGroup {usr = usr, grp = paying};
+ Group.addToGroup {usr = usr, grp = retired} %>
+ <% #name user %> retired!
<%
+ | _ => %>Couldn't find "paying" or "retired" group by name!
<%
+ end
+
+elseif $"cmd" = "grandfather" then
Init.grandfatherUsers()
%>Grandfathered
@@ -164,7 +186,8 @@ end %>
if #name bal <> #name user then %>
<% Web.html (#name bal) %>
<% end %>
- [Modify] [Delete] |
+ [Modify] [Delete]
+ [Retire] |
<% end %>