HCoop / bpt / portal.git / blame
| Commit | Line | Data |
|---|---|---|
| ee587f7f AC |
1 | <html><head> |
| 2 | <title>Hcoop Portal: Exception</title> | |
| 3 | </head><body> | |
| 4 | ||
| b6dd1aaf | 5 | <h1>Exception</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) %> | |
| 30b8ceb4 AC |
14 | <% | IO.Io {name, function, cause, ...} => %> |
| 15 | <b>IO error</b>: <% Web.html name %> for <% Web.html function %><br> | |
| 16 | <b>Cause</b>: <% Web.html (Init.explain cause) %><br> | |
| 17 | <b>Tokens</b>: <p><% Web.htmlNl (Init.tokens ()) %></p> | |
| 208e2cbc AC |
18 | <% | Init.C.Sql msg => %> |
| 19 | <b>SQL</b>: <% Web.htmlNl msg %> | |
| 20 | <% | Init.Access msg => %> | |
| 21 | <b>Authorization error</b>: <% Web.htmlNl msg %> | |
| 22 | <% | Web.Format s => %> | |
| 23 | <b>Format</b>: <% Web.htmlNl s %> | |
| f3f3ad24 AC |
24 | |
| 25 | <% | Init.NeedTos => %> | |
| 26 | <p><b>Our records indicate that you need to agree to our Terms of Service.</b></p> | |
| 27 | ||
| 28 | <% val ap = #app (Init.getUser ()); | |
| 29 | ||
| 30 | App.readTosBody () %> | |
| 31 | ||
| 32 | <br><hr><br> | |
| 33 | <form action="portal" method="post"> | |
| 34 | ||
| 35 | <% val ap = App.lookupApp ap; | |
| 36 | switch #gname ap of | |
| 37 | NONE => %> | |
| 38 | <b>Real name:</b> <% Web.html (#rname ap) %><br> | |
| 39 | <input type="checkbox" name="agree"> | |
| 40 | <% App.readTosAgree () | |
| 41 | | SOME gname => %> | |
| 42 | <b>Member name:</b> <% Web.html (#rname ap) %><br> | |
| 43 | <b>Legal guardian name:</b> <% Web.html gname %><br> | |
| 44 | <input type="checkbox" name="agree"> | |
| 45 | <% App.readTosMinorAgree () | |
| 46 | end %> | |
| 47 | <br><br><input type="submit" value="Agree"> | |
| 48 | </form> | |
| 49 | ||
| 208e2cbc AC |
50 | <% | ex => %> |
| 51 | <b>Unknown exception kind.</b> Backtrace: | |
| 52 | <% foreach s in SMLofNJ.exnHistory ex do %> | |
| 53 | <li> <% Web.html s %></li> | |
| 54 | <% end | |
| 55 | end %> | |
| 56 | ||
| ee587f7f | 57 | </body></html> |