| 369e1577 |
1 | <html><head> |
| 2 | <title>Hcoop Portal: Exception</title> |
| 3 | </head><body> |
| 4 | |
| 5 | <h1><b>Exception</b></h1> |
| 8d347a33 |
6 | |
| 7 | <% switch Web.getExn () of |
| 8 | Fail msg => %> |
| 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 %> |
| 5146e435 |
16 | |
| 17 | <% | Init.NeedTos => %> |
| 18 | <p><b>Our records indicate that you need to agree to our Terms of Service.</b></p> |
| 19 | |
| 20 | <% val ap = #app (Init.getUser ()); |
| 21 | |
| 22 | App.readTosBody () %> |
| 23 | |
| 24 | <br><hr><br> |
| 25 | <form action="portal" method="post"> |
| 26 | |
| 27 | <% val ap = App.lookupApp ap; |
| 28 | switch #gname ap of |
| 29 | NONE => %> |
| 30 | <b>Real name:</b> <% Web.html (#rname ap) %><br> |
| 31 | <input type="checkbox" name="agree"> |
| 32 | <% App.readTosAgree () |
| 33 | | SOME gname => %> |
| 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 () |
| 38 | end %> |
| 39 | <br><br><input type="submit" value="Agree"> |
| 40 | </form> |
| 41 | |
| 8d347a33 |
42 | <% | ex => %> |
| 43 | <b>Unknown exception kind.</b> Backtrace: |
| 44 | <% foreach s in SMLofNJ.exnHistory ex do %> |
| 45 | <li> <% Web.html s %></li> |
| 46 | <% end |
| 47 | end %> |
| 48 | |
| 369e1577 |
49 | </body></html> |
HCoop / hcoop / zz_old / portal.git / blame