X-Git-Url: https://git.hcoop.net/hcoop/portal.git/blobdiff_plain/688bf30c58b09549436e839df8c55f3c5808aa50..0b4db14f7226c2e419320aa1a5140056038ba0c3:/users.mlt
diff --git a/users.mlt b/users.mlt
index 1a3201c..2135308 100644
--- a/users.mlt
+++ b/users.mlt
@@ -27,6 +27,8 @@ if $"cmd" = "Create" then
Money.applyCharges trn
end;
+ App.add ap;
+
if $"subscribe" = "on" then
if not (Pref.subscribe ("hcoop-announce", $"name" ^ Init.emailSuffix)) then
%>
Error subscribing to hcoop-announce
<%
@@ -75,7 +77,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
@@ -169,7 +188,8 @@ end %>
if #name bal <> #name user then %>
<% Web.html (#name bal) %>
<% end %>
- [Modify] [Delete] |
+ [Modify] [Delete]
+ [Retire] |
<% end %>