Changeset 107 for trunk/Application


Ignore:
Timestamp:
Oct 10, 2012, 2:50:48 PM (12 years ago)
Author:
chronos
Message:
  • Přidáno: Zobrazení aktualit na stránce portálu.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Application/UWebSession.pas

    r106 r107  
    149149
    150150procedure TWebSession.RegisterModules;
     151var
     152  ModuleBase: TModuleBase;
    151153begin
    152154  with ModuleManager do begin
     
    161163    RegisterModule(TModuleIS.Create(nil), True);
    162164    RegisterModule(TModuleNews.Create(nil), True);
     165
     166    ModuleBase := TModuleBase(ModuleManager.FindModuleByName('Base'));
     167    if Assigned(ModuleBase) then ModuleBase.Session := Self;
    163168  end;
    164169end;
Note: See TracChangeset for help on using the changeset viewer.