Changeset 98 for trunk/UCore.pas


Ignore:
Timestamp:
Oct 2, 2012, 12:24:00 PM (12 years ago)
Author:
chronos
Message:
  • Upraveno: Přihlašování, odhlašování, registrace a nastavení profilu uživatele.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UCore.pas

    r94 r98  
    8888  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin;
    8989
     90resourcestring
     91  SError = '<div>Error: %s</div>';
     92
    9093{ TWebSession }
    9194
     
    366369      NewSession.Database.UserName := DatabaseUserName;
    367370      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;
    369380      HandlerData.Assign(NewSession);
    370381    end else begin
Note: See TracChangeset for help on using the changeset viewer.