Changeset 107 for trunk/Modules/Portal/UModulePortal.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/Modules/Portal/UModulePortal.pas (modified) (3 diffs)

trunk/Modules/Portal/UModulePortal.pas

@@ -8 +8 @@
   Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase,
   UUtils, UWebSession, SpecializedList, UUser, UWebPage, UHtmlClasses,
-  UModuleBase, UModuleUser;
+  UModuleBase, UModuleUser, UModuleNews;
 
 type
@@ -66 +66 @@
   WebPagePortal := TWebPagePortal.Create(nil);
   ModuleBase.Pages.RegisterPage(WebPagePortal, '');
-  TWebPagePortal(WebPagePortal).ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
+  ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
+  TWebPagePortal(WebPagePortal).ModuleUser := ModuleUser;
+  TWebPagePortal(WebPagePortal).ModuleNews := TModuleNews(Manager.FindModuleByName('News'));
   AfterStart;
 end;
@@ -76 +78 @@
   FreeAndNil(WebPagePortal);
   ModuleBase := nil;
+  ModuleUser := nil;
   AfterStop;
 end;