Commit | Line | Data |
---|---|---|
ee587f7f AC |
1 | <html><head> |
2 | <title>Hcoop Portal: Exception</title> | |
3 | </head><body> | |
4 | ||
5 | <h1><b>Exception</b></h1> | |
208e2cbc AC |
6 | |
7 | <% switch Web.getExn () of | |
8 | Fail msg => %> | |
9 | <b>Fail</b>: <% Web.htmlNl msg %> | |
dfb0d0d7 AC |
10 | <% | OS.SysErr (name, NONE) => %> |
11 | <b>System error</b>: <% Web.html name %> | |
12 | <% | OS.SysErr (name, SOME syserr) => %> | |
13 | <b>System error</b>: <% Web.html name %>: <% Web.html (OS.errorName syserr) %>: <% Web.htmlNl (OS.errorMsg syserr) %> | |
208e2cbc AC |
14 | <% | Init.C.Sql msg => %> |
15 | <b>SQL</b>: <% Web.htmlNl msg %> | |
16 | <% | Init.Access msg => %> | |
17 | <b>Authorization error</b>: <% Web.htmlNl msg %> | |
18 | <% | Web.Format s => %> | |
19 | <b>Format</b>: <% Web.htmlNl s %> | |
f3f3ad24 AC |
20 | |
21 | <% | Init.NeedTos => %> | |
22 | <p><b>Our records indicate that you need to agree to our Terms of Service.</b></p> | |
23 | ||
24 | <% val ap = #app (Init.getUser ()); | |
25 | ||
26 | App.readTosBody () %> | |
27 | ||
28 | <br><hr><br> | |
29 | <form action="portal" method="post"> | |
30 | ||
31 | <% val ap = App.lookupApp ap; | |
32 | switch #gname ap of | |
33 | NONE => %> | |
34 | <b>Real name:</b> <% Web.html (#rname ap) %><br> | |
35 | <input type="checkbox" name="agree"> | |
36 | <% App.readTosAgree () | |
37 | | SOME gname => %> | |
38 | <b>Member name:</b> <% Web.html (#rname ap) %><br> | |
39 | <b>Legal guardian name:</b> <% Web.html gname %><br> | |
40 | <input type="checkbox" name="agree"> | |
41 | <% App.readTosMinorAgree () | |
42 | end %> | |
43 | <br><br><input type="submit" value="Agree"> | |
44 | </form> | |
45 | ||
208e2cbc AC |
46 | <% | ex => %> |
47 | <b>Unknown exception kind.</b> Backtrace: | |
48 | <% foreach s in SMLofNJ.exnHistory ex do %> | |
49 | <li> <% Web.html s %></li> | |
50 | <% end | |
51 | end %> | |
52 | ||
ee587f7f | 53 | </body></html> |