| 1 | <% @header [("title", ["Roll call!"])]; |
| 2 | |
| 3 | val you = Init.getUserId (); |
| 4 | |
| 5 | ref viewingCall = NONE; |
| 6 | ref showNormal = true; |
| 7 | |
| 8 | if $"cmd" = "respond" then |
| 9 | showNormal := false; |
| 10 | |
| 11 | val rol = Web.stoi ($"rol"); |
| 12 | val code = $"code"; |
| 13 | val rc = Roll.lookupEntry (rol, you); |
| 14 | |
| 15 | if code = #code rc then |
| 16 | Roll.respond (rol, you); |
| 17 | %><h3>Your response has been saved. Thank you!</h3><% |
| 18 | else |
| 19 | %><h3>Incorrect code!</h3><% |
| 20 | end |
| 21 | elseif $"cmd" = "add" then |
| 22 | Group.requireGroupNum 0; |
| 23 | val title = $"title"; |
| 24 | val msg = $"msg"; |
| 25 | if title = "" then |
| 26 | %><h3>Your roll call must have a title.</h3><% |
| 27 | else |
| 28 | val id = Roll.addRollCall (title, msg); |
| 29 | viewingCall := SOME id; |
| 30 | %><h3>Roll call added!</h3><% |
| 31 | end |
| 32 | |
| 33 | elseif $"mod" <> "" then |
| 34 | Group.requireGroupNum 0; |
| 35 | showNormal := false; |
| 36 | val rc = Roll.lookupRollCall (Web.stoi ($"mod")) %> |
| 37 | <h3>Modify roll call</h3> |
| 38 | |
| 39 | <form action="roll" method="post"> |
| 40 | <input type="hidden" name="id" value="<% $"mod" %>"> |
| 41 | <table class="blanks"> |
| 42 | <tr> <td>Title:</td> <td><input name="title" value="<% Web.html (#title rc) %>"></td> </tr> |
| 43 | <tr> <td>Message:</td> <td><textarea name="msg" wrap="soft" rows="5" cols="80"><% Web.html (#msg rc) %></textarea></td> </tr> |
| 44 | <tr> <td><input type="submit" name="cmd" value="Save"></td> </tr> |
| 45 | </table> |
| 46 | </form> |
| 47 | |
| 48 | <% elseif $"cmd" = "Save" then |
| 49 | Group.requireGroupNum 0; |
| 50 | val rc = Roll.lookupRollCall (Web.stoi ($"id")); |
| 51 | |
| 52 | val title = $"title"; |
| 53 | val msg = $"msg"; |
| 54 | if title = "" then |
| 55 | %><h3>Your rol call must have a title.</h3><% |
| 56 | else |
| 57 | Roll.modRollCall {rc with title = title, msg = msg}; |
| 58 | viewingCall := SOME (#id rc); |
| 59 | %><h3>Roll call saved.</h3><% |
| 60 | end |
| 61 | |
| 62 | elseif $"del" <> "" then |
| 63 | Group.requireGroupNum 0; |
| 64 | showNormal := false; |
| 65 | val rc = Roll.lookupRollCall (Web.stoi ($"del")) %> |
| 66 | <h3>Are you sure you want to delete roll call "<a href="roll?view=<% #id rc %>"><% Web.html (#title rc) %></a>"?</h3> |
| 67 | <a href="roll?del2=<% $"del" %>">Yes, delete <% Web.html (#title rc) %>!</a> |
| 68 | |
| 69 | <% elseif $"del2" <> "" then |
| 70 | Group.requireGroupNum 0; |
| 71 | val rc = Roll.lookupRollCall (Web.stoi ($"del2")); |
| 72 | Roll.deleteRollCall (Web.stoi ($"del2")) %> |
| 73 | <h3><% Web.html (#title rc) %> deleted!</h3> |
| 74 | |
| 75 | <% elseif $"cmd" = "mailall" then |
| 76 | Group.requireGroupNum 0; |
| 77 | showNormal := false; |
| 78 | ref first = true %> |
| 79 | |
| 80 | <a href="mailto:<% foreach uname in Roll.activeUsernames () do |
| 81 | if first then |
| 82 | first := false |
| 83 | else |
| 84 | %>,<% |
| 85 | end |
| 86 | uname; Init.emailSuffix |
| 87 | end %>">Mail everyone!</a> |
| 88 | |
| 89 | <% elseif $"view" <> "" then |
| 90 | Group.requireGroupNum 0; |
| 91 | val id = Web.stoi ($"view"); |
| 92 | viewingCall := SOME id |
| 93 | end; |
| 94 | |
| 95 | if showNormal then |
| 96 | Group.requireGroupNum 0; |
| 97 | |
| 98 | switch viewingCall of |
| 99 | NONE => %> |
| 100 | <h3>Existing roll calls</h3> |
| 101 | |
| 102 | <% foreach rc in Roll.listRollCalls () do %> |
| 103 | <li> <a href="roll?view=<% #id rc %>"><% Web.html (#title rc) %></a> (<% #started rc %>)</li> |
| 104 | <% end %> |
| 105 | |
| 106 | <h3>New roll call</h3> |
| 107 | |
| 108 | <form action="roll" method="post"> |
| 109 | <input type="hidden" name="cmd" value="add"> |
| 110 | <table class="blanks"> |
| 111 | <tr> <td>Title:</td> <td><input name="title"></td> </tr> |
| 112 | <tr> <td>Message:</td> <td><textarea name="msg" wrap="soft" rows="5" cols="80"></textarea></td> </tr> |
| 113 | <tr> <td><input type="submit" value="Create"></td> </tr> |
| 114 | </table> |
| 115 | </form> |
| 116 | |
| 117 | <a href="roll?cmd=mailall">Mail everyone! (provides mailto: link)</a> |
| 118 | |
| 119 | <% | SOME id => |
| 120 | val rc = Roll.lookupRollCall id %> |
| 121 | <h3>Roll call "<% Web.html (#title rc) %>"</h3> |
| 122 | <table border="0" class="blanks"> |
| 123 | <tr> <td>Started:</td> <td><% #started rc %></td> </tr> |
| 124 | <tr> <td>Message:</td> <td><% Web.htmlNl (#msg rc) %></td> </tr> |
| 125 | </table> |
| 126 | [ <a href="roll?mod=<% id %>">Modify</a> | <a href="roll?del=<% id %>">Delete</a> ]<br> |
| 127 | |
| 128 | <% val (didnt, did) = Roll.listEntries id %> |
| 129 | |
| 130 | <h2>Didn't respond yet:</h2> |
| 131 | <% foreach (usr, ent) in didnt do %> |
| 132 | <li> <a href="user?id=<% #id usr %>"><% Web.html (#name usr) %></a></li> |
| 133 | <% end %> |
| 134 | |
| 135 | <h2>Responded:</h2> |
| 136 | <% foreach (usr, ent) in did do %> |
| 137 | <li> <a href="user?id=<% #id usr %>"><% Web.html (#name usr) %></a> (<% |
| 138 | switch #responded ent of SOME st => st end %>)</li> |
| 139 | <% end %> |
| 140 | |
| 141 | <% end |
| 142 | end %> |
| 143 | |
| 144 | <% @footer[] %> |