Ignore:
Timestamp:
Jun 19, 2012, 10:39:41 PM (12 years ago)
Author:
chronos
Message:
  • Přidáno: Stránka pro zobrazení všech projektů veřejných i neveřejných v tabulce pro správce.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Pages/UUserControlPage.pas

    r78 r79  
    6363  UserId: Integer;
    6464begin
    65   with TWebSession(MainModule), HtmlDocument.Body do begin
     65  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
    6666    Form := TQueryForm.Create;
    6767    with Form do begin
    … …  
    108108  UserId: Integer;
    109109begin
    110   with TWebSession(MainModule), HtmlDocument.Body do begin
     110  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
    111111    Form := TQueryForm.Create;
    112112    with Form do begin
    … …  
    165165procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
    166166begin
    167   with TWebSession(MainModule), HtmlDocument.Body do begin
     167  with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
    168168    UserOnline.Logout;
    169169    with THtmlString(SubItems.AddNew(THtmlString.Create)) do
Note: See TracChangeset for help on using the changeset viewer.