Changeset 107 for trunk/Application/UWebSession.pas

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:

• trunk/Application/UWebSession.pas (modified) (2 diffs)

trunk/Application/UWebSession.pas

@@ -149 +149 @@
 
 procedure TWebSession.RegisterModules;
+var
+  ModuleBase: TModuleBase;
 begin
   with ModuleManager do begin
@@ -161 +163 @@
     RegisterModule(TModuleIS.Create(nil), True);
     RegisterModule(TModuleNews.Create(nil), True);
+
+    ModuleBase := TModuleBase(ModuleManager.FindModuleByName('Base'));
+    if Assigned(ModuleBase) then ModuleBase.Session := Self;
   end;
 end;