2 <title>Hcoop Portal: Exception</title>
5 <h1><b>Exception</b></h1>
7 <% switch Web.getExn () of
9 <b>Fail</b>: <% Web.htmlNl msg %>
10 <% | Init.C.Sql msg => %>
11 <b>SQL</b>: <% Web.htmlNl msg %>
12 <% | Init.Access msg => %>
13 <b>Authorization error</b>: <% Web.htmlNl msg %>
14 <% | Web.Format s => %>
15 <b>Format</b>: <% Web.htmlNl s %>
17 <% | Init.NeedTos => %>
18 <p><b>Our records indicate that you need to agree to our Terms of Service.</b></p>
20 <% val ap = #app (Init.getUser ());
25 <form action="portal" method="post">
27 <% val ap = App.lookupApp ap;
30 <b>Real name:</b> <% Web.html (#rname ap) %><br>
31 <input type="checkbox" name="agree">
32 <% App.readTosAgree ()
34 <b>Member name:</b> <% Web.html (#rname ap) %><br>
35 <b>Legal guardian name:</b> <% Web.html gname %><br>
36 <input type="checkbox" name="agree">
37 <% App.readTosMinorAgree ()
39 <br><br><input type="submit" value="Agree">
43 <b>Unknown exception kind.</b> Backtrace:
44 <% foreach s in SMLofNJ.exnHistory ex do %>
45 <li> <% Web.html s %></li>