| 1 | <html><head> |
| 2 | <title>Hcoop Portal: Exception</title> |
| 3 | </head><body> |
| 4 | |
| 5 | <h1><b>Exception</b></h1> |
| 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 | |
| 23 | </body></html> |