qos.mlt

   1 <% @header [("title", ["Support quality statistics"])];
   2
   3 val days = case $"days" of
   4                   "" => 7
   5                 | days => Web.stoi days %>
   6
   7 <form method="post">
   8 Show me the entries from the last <input name="days" size="7" value="<% days %>"> days.
   9 <input type="submit" value="Show">
  10 </form>
  11
  12 <table>
  13 <tr><td><b>Kind</b></td> <td><b>Description</b></td> <td><b>User</b></td> <td><b>Placed</b></td> <td><b>Response</b></td> <td><b>Closed</b></td></tr>
  14 <%
  15
  16 foreach qos in Qos.recent days do %>
  17         <tr> <td><% switch #kindUrl qos of SOME url => %><a href="<% url %>"><% end %><% Web.html (#kind qos) %><% switch #kindUrl qos of SOME _ => %></a><% end %></td>
  18         <td><% switch #url qos of SOME url => %><a href="<% url %>"><% end %><% Web.html (#name qos) %><% switch #url qos of SOME _ => %></a><% end %></td>
  19         <td><a href="user?id=<% #usr qos %>"><% Web.html (#uname qos) %></a></td>
  20         <td><% #stamp qos %></td>
  21         <td><% switch #pstamp qos of NONE => %>-<% | SOME stamp => stamp end %></td>
  22         <td><% switch #cstamp qos of NONE => %>-<% | SOME stamp => stamp end %></td> </tr>
  23 <% end %>
  24
  25 </table>
  26
  27 <% @footer [] %>
  28
  29