Changeset 107 for trunk/Modules/Portal

Timestamp:

Oct 10, 2012, 2:50:48 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Zobrazení aktualit na stránce portálu.

Location:

trunk/Modules/Portal

Files:

• UModulePortal.pas (modified) (3 diffs)
• UPagePortal.pas (modified) (1 diff)

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;

trunk/Modules/Portal/UPagePortal.pas

@@ -256 +256 @@
           Output := Output + ShowPanel('Kamery', WebcamPanel)
         else if Panel.Values['Module'] = 'NewsGroupList' then
-          //Output := Output + ShowPanel('Aktuality',
-          //ModuleNews.Show,
+          Output := Output + ShowPanel('Aktuality',
+          ModuleNews.Show(HandlerData)); //,
           //['<a href="?Action=CustomizeNews">Upravit</a>']);
       end;