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 %> |
16 | <% | ex => %> |
17 | <b>Unknown exception kind.</b> Backtrace: |
18 | <% foreach s in SMLofNJ.exnHistory ex do %> |
19 | <li> <% Web.html s %></li> |
20 | <% end |
21 | end %> |
22 | |
369e1577 |
23 | </body></html> |