Ask applicants for payment authorization after email confirmation

[hcoop/portal.git] / roll.mlt

diff --git a/roll.mlt b/roll.mlt
index 2d396aa..8945697 100644 (file)
--- a/roll.mlt
+++ b/roll.mlt
@@ -19,7 +19,7 @@ if $"cmd" = "respond" then
                %><h3>Incorrect code!</h3><%
        end
 elseif $"cmd" = "add" then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
        val title = $"title";
        val msg = $"msg";
        if title = "" then
@@ -31,7 +31,7 @@ elseif $"cmd" = "add" then
        end
 
 elseif $"mod" <> "" then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
        showNormal := false;
        val rc = Roll.lookupRollCall (Web.stoi ($"mod")) %>
 <h3>Modify roll call</h3>
@@ -46,7 +46,7 @@ elseif $"mod" <> "" then
 </form>
 
 <% elseif $"cmd" = "Save" then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
        val rc = Roll.lookupRollCall (Web.stoi ($"id"));
 
        val title = $"title";
@@ -60,20 +60,20 @@ elseif $"mod" <> "" then
        end
 
 elseif $"del" <> "" then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
        showNormal := false;
        val rc = Roll.lookupRollCall (Web.stoi ($"del")) %>
        <h3>Are you sure you want to delete roll call "<a href="roll?view=<% #id rc %>"><% Web.html (#title rc) %></a>"?</h3>
        <a href="roll?del2=<% $"del" %>">Yes, delete <% Web.html (#title rc) %>!</a>
 
 <% elseif $"del2" <> "" then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
        val rc = Roll.lookupRollCall (Web.stoi ($"del2"));
        Roll.deleteRollCall (Web.stoi ($"del2")) %>
        <h3><% Web.html (#title rc) %> deleted!</h3>
 
 <% elseif $"cmd" = "mailall" then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
        showNormal := false;
        ref first = true %>
 
@@ -87,13 +87,13 @@ elseif $"del" <> "" then
 end %>">Mail everyone!</a>
 
 <% elseif $"view" <> "" then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
        val id = Web.stoi ($"view");
        viewingCall := SOME id
 end;
 
 if showNormal then
-       Group.requireGroupNum 0;
+       Group.requireAnyGroupName ["root", "board"];
 
        switch viewingCall of
                  NONE => %>