Changeset 98 for trunk/UCore.pas
- Timestamp:
- Oct 2, 2012, 12:24:00 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UCore.pas
r94 r98 88 88 UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin; 89 89 90 resourcestring 91 SError = '<div>Error: %s</div>'; 92 90 93 { TWebSession } 91 94 … … 366 369 NewSession.Database.UserName := DatabaseUserName; 367 370 NewSession.InitDatabase; 368 Page.Page.OnProduce(NewSession); 371 try 372 Page.Page.OnProduce(NewSession); 373 except 374 on E: Exception do begin 375 THTMLString(TWebSession(NewSession).HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)). 376 Text := Format(SError, [E.Message]); 377 NewSession.GeneratePage(Page.Page); 378 end; 379 end; 369 380 HandlerData.Assign(NewSession); 370 381 end else begin
Note:
See TracChangeset
for help on using the changeset viewer.